问题71 \设有程序：
Private Sub Form_Click() a = Array(30, 70, 90) temp = a(0): a(0) = a(2) If a(0) ＞= 80 Then Print \优秀\
ElseIf a(0) ＞= 60 Then Print \及格\Else
Print \不及格\End If End Sub
其运行结果是：\ A.没有输出结果 B.不及格 C.及格 D.优秀
问题72
\下面是窗体单击事件中的代码： Private Sub Form_Click()
If \＜ \& 10 End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.33 B.10 C.23 D.2310
问题73
\下面是窗体单击事件中的代码： Private Sub Form_Click()
If \＞ \+10 End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.10 B.23 C.2310 D.33
问题74
\下面是窗体单击事件中的代码：
Private Sub Form_Click()
If \＜ \ print \End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.abc2002 ok
B.abc2002 C.出错
D.abc2002ok
问题75
\下面是窗体单击事件中的代码： Private Sub Form_Click()
If \＜ \ print \End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.ok B.2002 C.abc2002 D.出错
问题76
\假定有以下循环结构 Do Until条件 循环体 Loop
则正确的描述是\
A.\如果\条件\是一个为0的常数，则一次循环体也不执行\ B.\如果\条件\是一个为0的常数，则无限次执行循环体\ C.\如果\条件\是一个不为0的常数，则至少执行一次循环体\ D.\不论\条件\是否为\真\，至少要执行一次循环体\
问题77
\假定有以下程序段 For I = 1 To 3
For j = 5 To 1 Step - 1 Print I * j Next j, i
则语句Print i*j的执行次数是\ A.15 B.16 C.17
D.18
问题78
\以下程序段的输出结果为 x=1 y=4
Do Until y ＞ 4 x=x*y y=y+1 Loop Print x\ A.1 B.4 C.8 D.20
问题79
\执行下面的程序段后，x的值为: x=5
For i = 1 To 20 Step 2 x=x+i\\5 Next I\ A.21 B.22 C.23 D.24
问题80
\程序输出结果是: For i= 1 To4 x=4
For j = 1 To 3 x=3
For k= 1 To 2 x=x+6 Next k Nextj Next I Print x\ A.7 B.15 C.157 D.538
问题81
\阅读下面的程序段： For i=1 To 3 For j = 1 To i For k =j To 3 a=a+1 Next k Next j Next i
执行上面的三重循环后，a的值为\ A.3 B.9 C.14 D.21
问题82
\在窗体上画一个文本框(其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
上述程序的运行结果是\ A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错
D.在文本框Text1中输出不定值
问题83
\ 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
程序运行后，单击命令按钮，在两个文本框中显示的值分别为\ A.1和0 B.2和72
D.4和168
问题84
\程序运行后，如果单击命令按钮，则在窗体上显示的内容是 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.\CCC DDDD EEEEE \ B.\BB CCC DDDD \ C.\CC DDD EEEE \ D.\BBB CCCC DDDDD \
问题85
\程序运行后,窗体上显示的是 Dim a(10, 10) As Integer For i= 1 To3 For j = 1 To 3
a(I, j) = (I - 1) * 3 +j Print a(I, j); Next j Print Next I\ A.\