有如下程序：
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．1
B．2
C．3
D．5

A．a=5:b=8
Do
Print" *"
a=a+1
Loop While a＜b
B．a=5:b=8
Do
Print" *"
a=a+1
Loop Until a＜b
C．a=5:b=8
Do Until a-b
Print "*"
b=b+1
Loop
D．a=5:b=8
Do Until a＞b
Print "*"
a=a+1
Loop