更多"有如下程序： Private Sub Form Click（ ） "的相关试题:
[单项选择]有如下程序：：
Private Sub Form_Click（ ）
Dim i As Integer, sum As Integer sum = 0
For i = 2 To 10
If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + i
End If
Next i
Print sum
End Sub
程序运行后，单击窗体，输出结果为______。
A. 12
B. 30
C. 24
D. 18
[单项选择]阅读如下程序： Private Sub Form_Click（ ） Dim num As Integer，digit As Integer num=InputBox("输入数据") Do While num ＜＞ 0 digit=num Mod 10 num=num/10 Print digit； Loop End Sub 程序运行后，如果从键盘上输入12345，则输出的结果为
A. 1 3 7 5 9
B. 5 4 3 2 1
C. 2 4 6 8 10
D. 1 2 3 4 5
[单项选择]设有如下程序： Private Sub Form_ Click（ ） Dim a Dim i As Integer, j 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 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]有如下程序：
Private Sub Form_Click（ ）
Dim i As Integer，Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
EndIf
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]假定有如下事件过程： Private Sub Form Click（ ） Dim x As Integer, n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是______。
A. 81 4
B. 56 3
C. 28 1
D. 243 5
[单项选择]下面程序： Private Sub Form _Click （ ） Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(
D. 显示错误信息
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]程序如下：Private Sub form_ Activate（ ） Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。
A. 4 5
B. 12 120
C. 24 120
D. 24 60
[单项选择]下面程序： Private Sub Form_Click（ ） Dim x，y，z As Integer x=5 Y=7 z=0 Call P1(x,y,z) Print Str(z) End Sub Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer) c=a+b End Sub 运行后的输出结果为______。
A. 0
B. 12
C. Str(
D. 显示错误信息
[单项选择]下面程序：
Private Sub Form_Click（ ）
Dim x,y,z As Integer
x=5
y=7
z=0
Call P1(x,y,z)
Print Str(z)
End Sub
Sub P1(By Val a As Integer, By Val b As Integer, c As Integer)
c=a+b
End Sub
运行后的输出结果为______。
A. 0
B. 12
C. Str(2)
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. java.exe
B. javadoc.exe
C. jdb.exe
D. javaprof.exe
[单项选择]有如下程序：
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．
