Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then ToggleButton1.Caption = "√" Else ToggleButton1.Caption = "×"
End Sub


Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then ToggleButton2.Caption = "√" Else ToggleButton2.Caption = "×"
End Sub
Private Sub ToggleButton3_Click()
If ToggleButton3.Value = True Then ToggleButton3.Caption = "√" Else ToggleButton3.Caption = "×"
End Sub
Private Sub ToggleButton4_Click()
If ToggleButton4.Value = True Then ToggleButton4.Caption = "√" Else ToggleButton4.Caption = "×"
End Sub
Private Sub ToggleButton5_Click()
If ToggleButton5.Value = True Then ToggleButton5.Caption = "√" Else ToggleButton5.Caption = "×"
End Sub


Private Sub CommandButton1_Click()
ToggleButton1.Caption = "判断"
ToggleButton2.Caption = "判断"
ToggleButton3.Caption = "判断"
ToggleButton4.Caption = "判断"
ToggleButton5.Caption = "判断"
End Sub


Private Sub CommandButton2_Click()
If ToggleButton1.Value = True And ToggleButton1.Caption <> "判断"  Then no1 = "正确" Else no1 = "错误，答案应为正确"
If ToggleButton2.Value = True And ToggleButton2.Caption <> "判断"  Then no2 = "正确" Else no2 = "错误，答案应为正确"
If ToggleButton3.Value = False And ToggleButton3.Caption <> "判断" Then no3 = "正确" Else no3 = "错误，答案应为错误"
If ToggleButton4.Value = True And ToggleButton4.Caption <> "判断"  Then no4 = "正确" Else no4 = "错误，答案应为正确"
If ToggleButton5.Value = True And ToggleButton5.Caption <> "判断"  Then no5 = "正确" Else no5 = "错误，答案应为正确"
MsgBox "第1题回答" & no1 & Chr(13) & "第2题回答" & no2 & Chr(13) & "第3题回答" & no3 & Chr(13) & "第4题回答" & no4 &  Chr(13) & "第5题回答" & no5
End Sub