有如下程序：
Private Sub Form_Click()
Dimi As Integer,sumASInteger
sum=0
For i=2To 10
If i Mod2＜＞0 And i Mod 3=0 Then
sum=sum+i
End If
Nexti
Print sum
EndSub
程序运行后，单击窗体，输出结果为( )。

A．12

B．30

C．24

D．18