单项选择题

有如下程序：
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
<上一题 目录 下一题>
热门 试题

单项选择题
有如下程序： Option Base 1 Private Sub Form Click() Dim arr，Sum Sum =0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i) 3=arr(i) 3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．25
B．26
C．27
D．28
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim array1 (10，10) As Integer Dim i As Integer，j As Integer For i=1 To 3 For j=2 To 4 array1(i，j)=i+j Next j Next i Text1.Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．12
B．13
C．14
D．15
相关试题