[填空题]执行下列程序，输入框中显示的默认字符串为 【7】 。 Private Sub Command1_Click( ) InputBox "Ok" , "输入参数", Format(" &H12" ) End Sub

[填空题]执行下列程序，输入框中显示的默认字符串为 【7】 。
Private Sub Command1_Click( )
InputBox "Ok" , "输入参数", Format(" &H12" )
End Sub

[填空题]执行下列程序，输入框中显示的默认字符串为 【11】 ；
Pirate Sub Command 1_Click（　）
InputBox"ok"，"输入参数"，Format("&H12")
End Sub

[填空题]执行下列程序，输入框中显示的默认字符串为 【6】 ： Private Sub Command1_Click（　） InputBox "ok"，"输入参数"，Format("&H12") End Sub

[填空题]执行下列程序，输入框中显示的默认字符串为上【6】： Private Sub Command l_Click （　） Input Box”ok”“输入参数”，Format(”GHl2”’ End Sub

[填空题]执行下列程序，输入框中显示的默认字符串为上【6】：
Private Sub Command l_Click （　）
Input Box”ok”“输入参数”，Format(”GHl2”’
End Sub

[简答题]【说明】
单击窗体上的“测试”(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。
【程序代码】
Private Sub cmdTest_Click( )
Dim strT1 ,strT2 As String
Dim strCh As (1)
Dim intL As Integer
Dim intl As Integer
strT1 = (2) ("请输入一串字符"，"字符串输入")
intL = (3)
strT2 = " "
For intl = I To intL
strCh = Mid ( strT1, intl, 1 )
If(strCh＞"A"And (4) ) Or (strCh ＞"a" And suCh ＜"z" )Then
strT2 = strT2 + strCh
End If
Next intl
txtShow. Text= (5)
End sub

[单项选择]以下程序的输出结果是D) 9 12 Option Base 1 Private Sub Command1_Click（　） Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub
A. 33
B. 28
C. 35
D. 37

[填空题]下列程序能将字符串s1中的所有与字符串str1相同的子串替换成字符串sb2，并将替换后的新串存于字符数组s2中。
#include＜stdio. h＞
void replace(s1,s2,str1,str2)
char *s1,*s2,*str1,*str2;
char *t0,*t1,*t2,*x,*y;
x=s1;y=s2;
while( 【8】 )

for(t0=s1,t1=str1; ((*t1!=’/O’&& 【9】 ;t0++,t1++);
if(*t1!=’/0’) *s2++= 【10】 ;
else
for(t1=str2;*t1!=’/0’;) *s2++= 【11】 ;
【12】 ;


*s2=’/0’;

main （　）
static char s1[]="abcdef ababcd abab.",s2125];
replace (s1, s2, "abc", "XYZ");
printf("%s/n",s2);

[单项选择]执行下列语句：
strInput=InputBox("请输入字符串"，"字符串对话框"，"字符串")
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是______。
A. "请输入字符串"
B. "字符串对话框"
C. "字符串"
D. 空字符串

[简答题]请编制程序，其功能为：将一个字符串中连续相同的字符仅用一个字符代替，生成一个新的字符串。字符串以00H结束，长度不超过20个字节。
例如：
原字符串为：4EH，4EH，4EH，42H，1AH，31H，31H，00H：
新字符串为：4EH，42H，1AH，31H，00H
部分程序已经给出，其中原始数据由LOAD过程从文件INPUT1. DAT中读入从SOURCE开始的内存单元，运算结果要求从RESULT开始存放，由SAVE过程保存到OUTPUT1.DAT文件中。请在BEGIN和END 之间补充一段源程序，完成要求的功能。
对程序必须进行汇编，并与IO.OBJ链接产生PROG1.EXE执行文件，最终产生运行结果。
部分程序如下：
; PROG1. ASM
EXTRN LOAD:FAR，SAVE:FAR
LEN EQU 20
N EQU 10
DSEG SEGMENT
SOURCE DW N DUP （　）
RESULT DW N DUP (0)
NAME0 DB ’INPUT1.DAT’, 0
NAME1 DB ’OUTPUT1.DAT’,0
DSEG ENDS
SSEG SEGMENT STACK
DB 256 DUP （　）
SSEG ENDS
CSEG SEGMENT
ASSUME CS:CSEG, DS:DSEG;SS:SSEG
START PROC FAR
PUSH DS
XOR AX,AX
PUSH AX
MOV AX,DSEG
MOV DS,AX
MOV ES,AX
LEA DX,SOURCE
LEA SI,NAME0
MOV CX,N
CALL LOAD
; *** BEGIN ***
…………
…………
…………
; *** END ***

[填空题]下面运行程序后，单击命令按钮，输出的结果是　【11】　。 　　Private Sub Command1_Click( ) 　　　Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# 　　　For i=1 To 4 　　　　a(i) =i 　　　Next i 　　　For i=3 To 6 　　　　b(i) =i 　　　Next i 　　　s1=YAS(A) 　　　s2=YAS(B) 　　　Print"s1="；s1；"s2="；s2 　　End Sub 　　Function YAS(a( )As Integer) 　　　Dim t#，i% 　　　t=1 　　　For i=LBound(A) To UBound(A) 　　　　t=t * a(i) 　　　Next i 　　　YAS=t 　　End Function

[填空题]单击窗体上的命令按钮Command1，程序的输出为 【6】 。 Private Sub Command1_Click（　） a="AbC" b="dEF" c=UCase(a) +LCase(b) Print Asc(c) End Sub

[单项选择]程序运行后，单击命令按钮Command1时的输出结果为( )。
Private Sub Command1_Click（　）
Dim A(10),B(5)
For i=1 TO 10
A(i)=i
Next i
For j=1 To 5
B(j)=j*20
Next j
A(5)=B(2)
Print "A(5)=";A(5)
End Sub
A. A(5)=5
B. A(5)=10
C. A(5)=20
D. A(5)=40

[单项选择]s1和s2已正确定义并分别指向两个字符串。若要求：当s1所指字符串大于s2所指字符串时，执行语句S；则以下选项中正确的是( )。
A. if(sl＞s2)S；
B. if(strcmp(s1,s2))S；
C. if(strcmp(s2,s1＞0)S；
D. if(strcmp)(s1,s2)＞0)S；

[简答题]编制程序，输入一个字符串，其中只含有英文字母和数字字符，判断该字符串是否是回文，并将该字符串输入文件test5.txt中。

[填空题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1 Click（　）
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X,Y
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为 【15】 。

[单项选择]在窗体上画一个名称为Command1的命令按钮，并编写以下程序：
Private Sub Command1_Click（　）
Print fun("ABCDEFG")
End Sub
Function fun(st As String) As String
stlen=Len(st)
temp=""
Fox k=1 to stlen/2
temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是
A. ABCDEFG
B. AGBFCE
C. GFEDCBA
D. AGBFCED

[填空题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（　）
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (13)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(14)
End Function
以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。