a=MsgBox(\，，\，\，5)(A)
A.BBBB B.空 C.AAAA D.出错，不能产生信息框
33.假定x的值为5，则在执行以下语句时，其输出结果为\的Select Case语句是(C) A. Select Case x
Case 10 To 1
Print \ End Select B.Select Case x
Case Is ＞ 5, Is ＜ 5 Print \ End Select C. Select Case x
Case Is ＞ 5, 1, 3 To 10 Print \ End Select D. Select Case x
Case 1, 3, Is ＞ 5 Print \ End Select 34. 假定有以下循环结构 Do Until条件 循环体 Loop
则正确的描述是 (B)
A.如果\条件\是一个为0的常数，则一次循环体也不执行 B.如果\条件\是一个为0的常数，则无限次执行循环体
C.如果\条件\是一个不为0的常数，则至少执行一次循环体 D.不论\条件\是否为\真\，至少要执行一次循环体 35.以下程序段的输出结果为 x=1 y=4
Do Until y ＞ 4 x=x*y y=y+1 Loop
Print x (B) A.1 B.4 C.8 D.20
36. 执行下面的程序段后，x的值为 x=5
For i = 1 To 20 Step 2 x=x+i\\5
Next i (A)
A.21 B.22 C.23 D.24
37. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0
Do Until x = -1
a=InputBox(\请输入 A的值\ a=Val(a)
b=InputBox(\请输入B的值\ b=Val(b)
x=InputBox(\请输入x的值\ x = Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 (A) A.2 B.3 C.14 D.15
38．如果要在文本框中键入字符时，只显示某个字符，如星号(*)，应设置文本框的( )属性。
A．Caption B．PasswordChar C．Text
D．Char
39.退出For循环可使用的语句为（ A ）。
A、Exit For B、End For C、Exit Do D、End Do 40.退出Do?Loop循环可使用的语句为（ C ）。
A、Exit For B、End For C、Exit Do D、End Do
41.退出函数过程可使用的语句为（ D ）。
A、Exit sub B、End sub C、End Function D、Exit Function 42.退出sub过程可使用的语句为（ A ）。
A、Exit sub B、End sub C、End Function D、Exit Function
43. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程： Private Sub Form_Load() Text1.Text= \ Text1.SetFocus For i=1 To 10
Sum = Sum + i Next i
Text1.Text = Sum End Sub
上述程序的运行结果是 （C）
A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错 D.在文本框Text1中输出不定值
44.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0
Do While x ＜ 50 x=(x+2)*(x+3)
n=n+1 Loop
Text1.Text = Str(n) Text2.Text = Str(x) End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (B) A.1和0 B.2和72 C.3和50 D.4和168
45.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I= 1 To 4
For J = 0 To I
Print Chr(65 + I); Next J Print Next I End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是(A) A.BB CCC DDDD EEEEE B.A BB CCC DDDD C.B CC DDD EEEE D.AA BBB CCCC DDDDD
46.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程 Private Sub Form_Click() x= -5:s= -5 Select Case s
Case Is ＞ 0 y=x+1 Case Is ＞= 0 y=x+2 Case Else y=x+3 End Select
Label1.Caption = x Label2.Caption = y
End Sub
程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是 (A) A.-5 和 -2 B.-5 和 -4 C.-5 和 -3 D.-5 和 –5
33. 下列VB程序语句正确的是(D).
A. If A ≥B Then T=A: A=B: B=T B. If A ≥B Then T=A; A=B; B=T C. If A>=B Then T=A A=B B=T D. If A>=B Then T=A: A=B: B=T 47. 下列程序段执行后输出的结果是(C) n=10
For k=n To 1 step -1 x = k^2 Next k
Print x
A.-2 B.-1 C.1 D.0 48 下列程序段执行后输出的结果是(A) i=0
For k=10 To 19 Step 3 i=i+1 Next k Print i
A. 4 B. 5 C. 3 D. 6
49 下列程序段执行后输出的结果是(B) x=int (Rnd+4) Select Case x Case 5
Print \优秀\Case 4
Print \良好\ Case 3
Print \及格\Case Else
Print \不及格\End Select
A. 优秀 B. 良好 C. 及格 D. 不及格
50. 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim ａ
a = Array(1, 2, 3, 4) j=1
For i = 4 To 1 Step -1 s = s + a(i)*j
j =j * 10 Next i Print s End Sub
运行上面的程序，单击命令按钮，其输出结果是 (D) A.4321 B.12 C.34 D.1234
51.决定窗体标题条显示内容的属性是(C) A.Text B.Name C.Caption D.BackStyle
52．要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（ A ）
A．Passwordchar属性值为* B. Caption属性值为* C．PasswordChar属性值为真 D. Text属性值为*
53决定窗体有无控制菜单的属性是(A) A.ControlBox B.MinButton C.Enabled D.MaxButton
54使文本框获得焦点的方法是(C) A.Change B.GotFocus C.SetFocus D.LostFocus`
55下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为 （C） A.Picture = \
B.Picture.Handle = \
C.Picture 1.Picture = LoadPicture(\ D.Picture = LoadPicture(\56决定标签内显示内容的属性是(D) A.Text B.Name
C.Alignment D.Caption
57假定在图片框Picture1中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(B) A.选择图片框，然后按Del键
B.执行语句Picture1.picture=LoadPicture(\ C.执行语句Picture1.picture=\
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键