更多"有如下程序：：
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_ 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 2=0 Call P1(x,y，z) Print Str(z) End Sub Sub P1(By Va1 a As Integer，By Va1 b As Integer，c As Integer) c=a+b EndSub 运行后的输出结果为_________。
A. 0
B. 12
C. Str(
D. 显示错误信息
[单项选择]
在过程定义中有语句：
Private Sub GetDate（ByVal date As Integer）
其中“ByVal”的含义是（）。
A. 传值调用
B. 传址调用
C. 形式参数
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. 0 0
B. 1 1
C. 0 2
D. 1 2
