单项选择题

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