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属性条，然后按回车键