单项选择题

有如下程序：

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
<上一题 目录 下一题>
热门 试题

单项选择题
以下用户自定义函数 Function Func(a As Integer，b As Integer) As Integer Static m As Integer，i As Integer m=0:i=2 i=i+m+i m=i+a+b Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer k=4:m=1 P=Func(k,m) Print p End Sub 程序运行后，单击命令按钮，输出结果为
A．8
B．9
C．10
D．11
单项选择题
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： PrivateSub Form_Load() List1.AddItem Item1 List1.AddItem Item2 List1.AddItem Item3 End Sub Private Sub Command1_Click() List1.List(List1.Listcount) = AAAA End Sub 程序运行后，单击命令按钮，其结果为
A．把字符串"AAAA"添加到列表框中，但位置不能确定
B．把字符串"AAAA"添加到列表框的最后(即"Item3"的后面)
C．把列表框中原有的最后一项改为"AAAA"
D．把字符串"AAAA"插入到列表框的最前面(即"Item1"的前面)
相关试题