'直接用命令按钮就好了,试试看 Private Sub Cmd1_Click() If Ch1 = 1 And Ch2 = 1 Then Txt1.Text = "报名兵乓球和羽毛球" ElseIf Ch1 = 0 And Ch2 = 1 Then Txt1.Text = "报名兵乓球" ElseIf Ch1 = 1 And Ch2 = 0 Then Txt1.Text = "报名羽毛球" ElseIf Ch1 = 0 And Ch2 = 0 Then Text1.Text = "没有报名" End If End SubI