a=a+b+X
Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为 A A)2 B)3 C)14 D)15 10．阅读下面的程序段： For i=l To 3 For j=l To i For k=J To 3 a=a+l Next k Next j Next i
执行上面的3重循环后，a的值为 C A)3 B)9 C)14 D)21
11．在窗体上画一个文本框(其Name属性为Textl)，然后编写如下事件过程： Private Sub Form_Load0 Textl.Text=” ” Textl.SetFocus For i=l T0 10 Sum=Sum+i Next i Text1.Text=Sum End Sub
上述程序的运行结果是
A)在文本框Textl中输出55 B)在文本框Textl中输出0 C)出错 D)在文本框Textl中输出不定值
12．在窗体上画两个文本框(其Name属性分别为Textl和Text2)和一个命令按钮(其Name属性为Commandl)，然后编写如下事件过程： Private Sub Commandl_C1ick() X=0
Do While X<50 X=(X+2)*(X+3) n=n+l Loop
Textl．Text=Str(n) Text2．Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 A)l和0 B)2和72 C)3和50 D)4和168
13．下列程序当在文本框输入“ABCD”四个字符时，窗体上显示的是 Private Sub Textl_Change() Print Textl.Text；
End Sub
A) ABCD B) A B C D
C) AABABCABCD D) A AB ABC ABCD
14．下列哪个程序段不能分别正确显示1！、2！、3！、4！的值
A) For I = 1 To 4 B) For I=1 to 4 n=1 For j=1 to I For j=1 To I n=1 n=n*j n=n*j Next j next j Print n Print n Next I Next I C) n=1 D) n=1 For j=1 To 4 j=1 n=n*j Do While j <= 4 Print n n=n*j Next j Print n j=j+1 Loop 15．假定有以下程序段 For I =l To 5
For J=5 To 1 Step -1 Print J
Next J Next I
则循环语句执行完后I的值为 A)5 B)6 C)7 D)8
16．假定有如下事件过程：
Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0
Do While x < 28
x = x * 3 n = n + 1 Loop Print x, n End Sub
程序运行后，单击窗体，输出结果是 A） 81 4 B） 56 3 C） 28 1 D） 243 5 17．有如下程序：
Private Sub Form_click()
Dim Check, Counter Check = True Counter = 0 Do
Do While Counter < 20
Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop
Loop Until Check = False Print Counter, Check End Sub
程序运行后，单击窗体，输出结果为 A） 15 0 B） 20 - 1 C） 10 True D） 10 False
18．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：(P91)
Private Sub Command1_Click()
Dim a As Integer, s As Integer a = 8 s = 1
Do s = s + a a = a－1 Loop While a <= 0 Print s; a End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是 A）7 9 B） 34 0 C）9 7 D） 死循环
19．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() c = 1234
c1 = Trim(Str(c)) For i = 1 To 4 Print Next End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容 1 12 123 1234
则在下划线处应填入的内容为
A) Right(c1,i) B) Left(c1,i) C) Mid(c1,i,1) D) Mid(c1,i,i)
20. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click()
n = Val(Text1.Text) For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For Next j
If j > Sqr(i) Then Print i Next i End Sub
该事件过程的功能是
A) 输出n以内的奇数 B) 输出n以内的偶数 C) 输出n以内的素数 D) 输出n以内能被j整除的数 二、填空题