x=6
Print m(2+m(x)) End Sub
程序运行后，单击命令按钮，输出结果是\ A.4 B.5 C.6 D.7
问题58
以下说法正确的是
A.Select Case语句中的测试表达式可以是任何形式的表达式
B.Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C.在执行Select Case语句时，所有Case子句均按出现的次序被顺序执行 D.\如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10 ……
End Select\
问题59
下面程序段求两个数中的大数，不正确的是 A.\＞y,x,y)\ B.\＞y then max=x else max=y end if\ C.\
if y＞=x then max=y\ D.\＞=x then max=y max=x\
问题60
以下正确的For……Next结构是 A.\……
Next x\
B.\……
Next x\
C.\re:…… Next x
if I=10 then Goto re\ D.\……
Next y\
问题61
下列循环能正确结束循环的是 A.\Do I=I+1
Loop Until I＜0\ B.\Do I=I+2
Loop Until I=10\ C.\DoI=I+1
Loop Until I＞0\ (loop until条件为真，结束;loop while条件为真，执行循环) D.\Do I=I-2
Loop Until I=1\
问题62
不能分别正确显示1!、2!、3!、4!值的程序段是 A.\n=1
For j=1 to I n=n*j Next j print n Next I\
B.\ For j=1 to I n=1 n=n*j Next j print n next I\ C.\for j=1 to 4 n=n*j print n next j\
D.\j=1
do while j＜=4 n=n*j print n j=j+1 loop\
问题63
\设有如下程序：
Private Sub Form_Click() a = 1
For I = 1 To 3 Select Case I Case 1 a = a + 1 Case 2,3 a = a + 2 End Select Next I Print a End Sub
程序运行后，单击窗体，则在窗体上显示的内容是:\ A.3 B.4 D.6
问题64
\设有如下程序：
Private Sub Form_Click() a = 1
For I = 1 To 3 Select Case I Case 1 a = a + 1 Case is＞3 a = a + 2 End Select Next I Print a End Sub
程序运行后，单击窗体，则在窗体上显示的内容是:\ A.1 B.4
C.3 D.2
问题65
\设有如下程序：
option base 0Private Sub Form_Click() A = Array(1, 2, 3, 4, 5)
If A(0) = A(1) And A(2) = A(3) Then Print A(0) & \End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.1A(0) B.\ C.A(0) D.A(4)=5
问题66
\下面是窗体单击事件中的代码： Private Sub Form_Click() Dim A(4) As String
If A(0) = A(1) And A(2) = A(3) Then Print A(0) + \End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.\ B.\ C.A(4) D.A(0)
问题67
\下面是窗体单击事件中的代码： Private Sub Form_Click()
If \＜ \＜y\＞\End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.FALSE B.\＜y\
C.\＞\ D.TRUE
问题68
\设有如下程序：
Private Sub Form_Click() A = Array(3, 1, 2) If A(0) ＜ A(1) Then
If A(0) ＜ A(2) Then Print A(0)
Else
If A(1) ＞ A(2) Then Print A(1) print \End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.3 B.2 C.1 D.ok
问题69
\设有如下程序：
Private Sub Form_Click() dim a%(2)
If A(0) ＜ A(1) Then
If A(0) ＜ A(2) Then Print A(0) Else
If A(1) ＞ A(2) Then Print A(1) End If End Sub
程序运行后单击窗体，在窗体上输出的结果是：\ A.不能确定 B.出错 C.0
D.没有输出
问题70
\设有程序：
Private Sub Form_Click() a = Array(30, 70, 80) temp = a(0): a(0) = a(1) If a(0) ＞= 80 Then Print \优秀\
ElseIf a(0) ＞= 60 Then Print \及格\Else
Print \不及格\End If End Sub
其运行结果是：\ A.没有输出结果 B.优秀 C.不及格 D.及格