【单选题】

有如下程序：

Private Sub Form_Click()
Dim iAs Integer，SumAs Integer
Sum=0
For i=2 To 10
　　 If i Mod 2＜＞0And i Mod 3=0 Then
　　　Sum=Sum+i
　　End If
Next
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18