题目内容
（请给出正确答案）
有如下程序： 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（)…”相关的问题
设有如下程序：
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
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n \ 3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
A．15
B．18
C．21
D．24
有如下程序： 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 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
在窗体上画了两个按钮控件Command1和Command2，有如下程序： Private Sub Command1_Click() Print "Visual"； End Sub Private Sub Command2_Click() Print "Basic"； End Sub Private Sub Form_Load() CommandCancel=True Command1.Cancel=True End Sub 执行程序后，按键盘Cancel键，在窗体上输出的结果是
A．Basic
B．Visual
C．Cancel
D．True
有如下程序:
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 Command1 Click()
For i=1 To 4
x=4
For j=1 To i
x =3
For k=1 To 2
x= x + 5
Next k
Next j
Next i
Print x
End Sub
有如下程序。
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim op As Integer
k=4: m=1
op=PPC(k, m) : Print op;
op=PPC(k, m) : Print op
End Sub
Private Function PPC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PPC=m
End Function
程序运行后,输出的结果为
A．4 6
B．6 6
C．8 8
D．10 12
有如下程序： 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 i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A． 12
B．30
C．24
D．18
