更多"程序段如下：Private Sub Command1_ Click（ "的相关试题:
[单项选择]有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[单项选择]设有如下程序： Private Sub Commandl Click（ ） Dimsum As Double,x As D0uble sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是______。
A. 1+1/2+2/3+3/4+4/5
B. 1+1/2+2/3+3/4
C. 1/2+2/3+3/4+4/5
D. 1+1/2+1/3+1/4+1/5
[单项选择]有如下程序：
Private Sub Command1 Click（ ）
Dim a As Single
Dim b As Single
a=5：b=4
Call S(a，B)
End Sub
Sub S(x As Single，y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为（ ）。
A. 0 0
B. 1 1
C. 2 2
D. 1 2
[单项选择]有如下程序：
Private Sub Commandl_Click（ ）
Dim a As Single
Dim b As Single
a=2：b=4
Call CS(a，b)
End Sub
Sub CS(x As Single，y As Single)
t=X
x=t/y
y=t Mod y
End Sub
程序运行后，单击命令按钮，a和b的值分别为( )。
A. Dim pict[3,4]As Integer
B. Dim pict(3，4)As Integer
C. Dim pict[3．4]As Integer
D. Dim pict(3：4)As Integer．
[单项选择]有如下程序 Private Sub Command1_Click（ ） a = 100 Do s=s+a a=a+1 Loop While a＞120 Print a End Sub 程序运行后，单击命令按钮，其输出的结果为
A. 100
B. 120
C. 201
D. 101
[单项选择]设有如下程序： Option Base 0 Private Sub Form Click（ ） Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A. 4 3 21
B. 543 2
C. 6 54 3
D. 7 6 54
[单项选择]设有如下程序： Option Base 1 Private Sub Form Click（ ） Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______ 。
A. ABCDE 20 10
B. 10 20 ABCDE
C. ABCDE 10 20
D. 出错信息
[单项选择]有如下程序： Private Sub Command1 Click（ ） Dim a As Single Dim b As Single a=5：b=4 Call S(a，B) End Sub Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在调用运行上述程序后，a和b的值分别为
A. 0 0
B. 1 1
C. 2 2
D. 1 2
