【单选题】

有如下程序：

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