单选题 某窗体主体的Click事件过程如下，窗体运行后单击窗体主体，消息框中输出的结果是(    )。
   Private Sub主体_Click()
     Dim i As Integer,a As Integer
     a=1
     For i=1 To 3
     Select Case i
     Case 1,3
       a=a+1
     Case 2,4
       a=a+2
     End Select
   Next i
   MsgBox a
   End Sub
   A．3    B．4    C．5    D．6