a$=\Case 80 To 89 a$=\Case else a$=\End Select MsgBox a$ End Sub
程序运行后，消息对话框中显示的内容为_______。 ( )
A、A B、B C、C D、D 71、下列程序： Private Sub Form_Click( ) For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
运行后输出的结果是__________。 ( )
A、1 B、15 C、90 D、120 72、存在如下程序：
Private Sub Command1_Click( ) a=Val(InputBox(“请输入”)) b=Val(InputBox(“请输入”)) x=a+b If a>b Then x=a–b endif Print x End Sub
运行后，从InputBox对话框中连续输入3和4，输出结果为_______。 ( )
A、3 B、34 C、7 D、0
73、设有如下语句： strl=InputBox(\输入\练习\从键盘上输入字符串\示例\后，strl的值是________。 ( )
A、“输入” B、“” C、“练习” D、“示例” 74、在单击窗体中的按钮Command1第3次后，如下程序打印结果是____。 Private Sub Command1_Click( ) Static a AS Integer a = a+1 Select Case a
Case 1: Print \欢迎大家\Case 2 :Print \努力就能成功 Case 3: Print \希望你能通过考试\Case 4: Print \再见\End Select
End Sub ( )
A、“欢迎大家” B、“努力就能成功” C、\希望你能通过考试\ D、“再见” 75、当Form1_Click事件发生时，程序的输出结果是__________。 Private Sub Form_Click()
Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub ( )
A、5 5 7 B、5 7 5 C、7 5 5 D、7 5 7
76、下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。
Private Sub
Command1_Click()
Dim s As Long, x As Integer
s = 0
For x = ____________ Step -2
s = s + x
Next x
Print s
End Sub ( )
A、100 To 1 B、1 To 100 C、99 To 1 D、1 To 99 77、以下程序的输出结果是____________。
Dim i As Integer,a As Integer
Do While i<20
Do While True
If i Mod 10=0 Then
Exit Do
Else
i=i-1
End If
Loop
i=i+11
a=a+i
Loop
Print a ( )
A、21 B、32 C、33 D、11 78、
下列程序段的执行结果为____________。
x = Int((69 - 60) * Rnd + 60)
Select Case x
Case Is >= 90
Print "优秀"
Case 80 To 89
Print "良好"
Case 60 To 79
Print "合格"
Case Else
Print "不合格"
End Select
A、优秀 B、良好 C、合格 D、不合格 79、下列语句正确的是____________。 ( )
A、If K<3*N And K>N Then N=K^3 B、If K<3*N And K>N Then N=K3 C、If K<3*N ：K>N Then N=K^3 D、If K<3*N And K>N Then N=K**3 80、假设X的值是5，则执行以下语句时，可得到的输出结果是 ABCDEF 的 SelectCase 语句是________。 ( )
A、Select Case X Case 10 TO 1 Print “ABCDEF” End Select B、Select Case X Case Is>15, Is<5 Print“ABCDEF” End Select C、Select Case X Case Is>5, 1, 3, TO 10
Print “ABCDEF” End Select D、Select Case X Case 1, 3, Is>5 Print “ABCDEF” End Select
81、下面语句运行后的输出结果是________. Private Sub Command1_Click() x=0
Do While x<10 x=x+1: x=x*x Loop Print x End Sub ( )
A、16 B、19 C、20 D、25 82、下面语句错误的是________。 ( )
A、If a=1 And b=2 Then c=3 End If B、If a=1 Then c=2
Else If a=2 Then c=3 End If C、If a=1 Then c=2
ElseIf a=2 Then c=3 End If
D、If (a=1,2,3 ) Then c=2
83、下面程序的内层循环次数是________。 For i=1 TO 3 For j=1 TO i For k=j TO 3 ... Next k Next j Next i ( )
A、3 B、14 C、9 D、21
84、结构化程序设计方法的核心是规定了三种基本结构：________结构、分支结构、循环结构。A、条件 B、顺序 C、当型 D、逻辑 85、哪个程序段不能分别正确显示1、2、6、24的值____________。 ( )
A、For i=1 To 4 n=1
( )
For j=1 To i N=n*j Next j Print n Next i
B、For i=1 To 4 For j=1 To i n=1 n=n*j Next j Print n Next i C、n=1 For j=1 To 4 N=n*j Print n Next j D、n=l j=1
Do While j<=4 n=n*j Print n j=j+1 Loop
86、下列循环能正常结束循环的是____________。 ( )
A、i=5 Do i=i+1 Loop Until i<0 B、i=1 Do i=i+2
Loop Until i=10 C、i=10 Do i=i+1 Loop Until i>0 D、i=6 Do i=i-2
Loop Until i=1
87、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是____________。 ( )
A、If sex=\男\，\教授\
B、If sex=\男\教授\副教授\C、If sex=\男\教授\
D、If sex=\男\教授\副教授\88、下面程序段，显示的结果是____________。 Dim x x=Int(Rnd)+5 select Case x Case 5 print \优秀\Case 4 print \良好\Case 3 print \通过\Case Else print \不通过\End Select ( )
A、优秀 B、良好 C、通过 D、不通过 89、语句If x=1Then y=1，下列说法正确的是____________。 ( )
A、x=1和y=1均为赋值语句 B、x=1和y=l均为关系表达式 C、x=1为关系表达式，y=1为赋值语句 D、x=1为赋值语句，y=l为关系表达式 90、下面程序段运行后，显示的结果是____________。 Dim x
If x Then Print x Else Print x +1 ( )
A、1 B、0 C、-1 D、显示出错信息
91、结构化程序由三种基本结构组成，下面属于三种基本结构之一的是________。 ( )
A、递归结构 B、选择结构 C、过程结构 D、输入、输出结构 92、VB也提供了结构化程序设计的三种基本结构，三种基本结构是________。 ( )
A、递归结构、选择结构、循环结构 B、选择结构、过程结构、顺序结构 C、过程结构、输入、输出结构、转向结构 D、选择结构、循环结构、顺序结构
93、在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click() Dim k As Integer
Dim entry As String, item As String entry = \
For k = Len(entry) To 1 Step -1 item = LCase(Mid(entry, k, 1)) & k List1.AddItem item Next k End Sub
运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是_________。 ( )
A、b4 B、b2 C、d3 D、d2
94、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 ( )
A、①② B、①②③ C、③ D、①②③④
95、执行下面的程序，单击窗体后在窗体上显示的结果是_______