更多"有如下程序： Private Sub Commandl_Click（"的相关试题:
[单项选择]有如下程序： Private Sub Commandl_Click（ ） Dim a As Integer a=2 For i=1 To 3 Print Gad (
[单项选择]有如下程序： 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序：
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 i As Integer, x As String, y As String
x="ABCDEFG"
For i=4 To 1 Step-1
y=Mid(x, i, i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为( )。
A. ABCCDEDEFG
B. AABBCDEFG
C. ABCDEFG
D. AABBCCDDEEFFGG
[单项选择]有如下程序：：
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 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（ ） 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
