单项选择题

有如下程序： 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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程 Private Sub Form_Load() List1.Addltem Iteml List1.Addltem Item2 List1.Addltem Item3 End Sub Private Sub Command1_click() List1.List(List1.ListCount)= AAAA End Sub 程序运行后，单击命令按钮，其结果为（）。

A．把字符串“AAAA”添加到列表框中，但位置不能确定
B．把字符串“AAAA人”添加到列表框的最后(即“Item3”的后面)
C．把列表框中原有的最后一项改为“AAAA”
D．把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)

单项选择题

有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为（）。

A．15 0
B．20 -1
C．10 True
D．10 False

相关试题