vb问题?急急急急!!!!!!!!!!!!

2题： Private Sub C1_Click() Dim c$ c$ = "我的爱好是" If Ch1.Value Then c$ = c$ + Ch1.Caption If Ch2.Value Then c$ = c$ + Ch2.Caption If Ch3.Value Then c$ = c$ + Ch3.Caption MsgBox c$ End Sub 3题： Private Sub Cmd1_Click() Dim i A