计算．

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