单项选择题

有如下程序：
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_KeyDown (KeyCode As Integer, Shift As Integer) Print Cb_r(KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是
A．A
A
B．a
A
C．A
a
D．a
a
单项选择题
函数过程Fun1的功能是：如果参数b为奇数，则返回值为1, 否则返回值为0。 Function Fun1 (b As Integer) if ______ Then Fun1 =0 Else Fun1 = 1 End If End Function 使该功能完整，应在空行处填入以下哪条语句
A．b Mod 2＜＞0
B．b Mod 2 =0
C．b/2 = 1
D．b\2 =0
相关试题