1. 现有如下程序： Private Sub Command1_Click() 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