更多"下面程序：
Private Sub Form_Click（ ）
"的相关试题:
[单项选择]下面程序： 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(ByVal a As Integer，ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为 ______。
A. 0
B. 12
C. Sb(
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(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 Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]给出下面程序： Private Sub Command1_Click（ ） Dim x，y，z X=False For Each y In 2 If y．Text="Hello" Then x=True Exit For End If Next y End Sub 下面描述正确的是
A. 退出For Each…Next循环的条件是x=True
B. 退出For Each…Next循环的条件是x=False
C. 程序检查y对象的Text属性，等于“”时退出For Each…Next循环
D. 程序逐一查找在z中的对象，不确切并判断其Text属性，文本框中的内容等于“Hello”时退出For Each…Next循环
[单项选择]运行下面程序代码后，变量J的值为______。 Private Sub Fun（ ） Dim J as Integer J=10 Do J=J+3 Loop While J＜19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]运行下面程序代码后，变量J的值为______。 Private Sub Fun （ ） Dim J as Integer J=10 DO J=J+3 Loop While J＜19 End Sub
A. 10
B. 13
C. 19
D. 21
[单项选择]有如下程序： 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 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（ ）
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
