更多"有如下程序：
Private Sub Commandl_Clic"的相关试题:
[单项选择]有如下程序:: 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 i As Integer, k As Integer
k=2
For i = 1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Function
单击命令按钮，执行程序，输出结果是( )。
A. 2 3 4
B. 3 4 5
C. 5 6 7
D. 3 5 6
[单项选择]有如下程序：
Private Sub Commandl_Click( )
Dim i As Integer
For i=1 To 2
DS
Next i
End Sub
Sub DS( )
Dim x As Integer，m As String
Static y，n
X=X + 1
y=y + 1
m=m &"*”：n=n&"#"
Print x，y，m，n
End Sub
程序运行后，输出的结果是( )。
A. * p表示的是指针变量p的地址
B. p表示的是变量a的地址，而不是变量a的值
C. * p表示的是指针变量p的值
D. * p只能用来说明p是一个指针变量
[单项选择]设有如下程序：
Private Sub Command1_Click（ ）
Dim c As Integer, d As Integer c = 4
d = InputBox("请输入一个整数")
Do While d > 0
If d > c Then c = c + 1
End If
d = InputBox("请输入一个整数")
Loop
Print c + d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、
9、0，则输出结果是______。
A. 12
B. 11
C. 10
D. 9
[单项选择]有如下程序：
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,sum As Integer
sum=0
Fori=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. 24
B. 30
C. 12
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 End If Next i 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
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
End If
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 12
B. 30
C. 24
D. 18
[单项选择]有如下程序： Private Sub Form_CHck（ ） Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 ＜＞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 i As Integer, j As Integer
Dim sum As Integer
n=1
Do
j=1
Do
sum = sum + j
j=j+1
Print j;
Loop Until j ＞ 3
n=n+2
Loop Until n ＞ 10
Print sum
End Sub
运行上述程序，外层Do循环执行的次数为( )。
A. 4
B. 5
C. 7
D. 10
