单项选择题

有如下程序：
Private Sub Form_Click()
Dim i As Integer,sum As Integer
sum=0
Fori=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．24
B．30
C．12
D．18
<上一题 目录 下一题>
热门 试题

单项选择题
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%,k% n=Len(Text1.Text) For k=0 To List1.ListCount-1 If Left(List1.List(k),n)=Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0 To List1.ListCount-1改为( )。
单项选择题
下列选项中，不属于模块间耦合的是( )。
A．内容耦合
B．异构耦合
C．控制耦合
D．数据耦合
相关试题