设有如下窗体单击事件过程：
Private Sub Fom_Click()
a=1
For i=1 To 3
Select Case i
Case 1，3
a=a+1
Case2，4
a=a+2
End Select
Nexti
MsgBoxa
EndSub
打开窗体运行后，单击窗体，则消息框的输出的结果是

A．3

B．4

C．5

D．6

型砂水分高、砂芯发气量大，铸件易产生析出性气孔。