从正确答案计算总分，其中每个正确答案值5分

Question

到目前为止，我很感激你，我的问题是，我正在尝试用不同形式的5个问题创建一个能力倾向测试，表格上的每个问题都有4个单选按钮，我的问题是，在测试结束时，如何如果一个问题是5分

，我会将用户的总分加起来

Public Class Form2

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If RadioButton1.Checked Then
        'MsgBox("Thats wrong, read the questions again", 1)
        Form3.Show()
        Me.Hide()


    ElseIf RadioButton2.Checked Then
        'MsgBox("THATS RIGHT, you can move on now..", 1)
        Form3.Show()
        Me.Hide()
    ElseIf RadioButton3.Checked Then
        'MsgBox("wrong answer", 1)
        Form3.Show()
        Me.Hide()
    ElseIf RadioButton4.Checked Then
        'MsgBox("DATS WRONG, YOU FALL FOR THE TRICK???", 1)
        Form3.Show()
        Me.Hide()


    Else
        MsgBox("please select one answer", 1)

    End If
    'RadioButton1.Checked = False
    'RadioButton2.Checked = False
    'RadioButton3.Checked = False
    'RadioButton4.Checked = False
    'If RadioButton1.Checked = False Then
    '    MsgBox("abeg write sometin")
    'End If
End Sub

结束班

检查结果的代码是 公共类Form7

Dim res1, res2, res3, res4, res5, total As Integer


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Form1.Show()
    Me.Hide()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Application.Exit()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


    If Form2.RadioButton2.Checked Then
        res1 = 5
        total = total + res1
    ElseIf Form2.RadioButton1.Checked Then
        res1 = 0
        total = total + res1
    ElseIf Form2.RadioButton3.Checked Then
        res1 = 0
        total = total + res1
    ElseIf Form2.RadioButton4.Checked Then
        res1 = 0
        total = total + res1


        'ElseIf Form2.RadioButton1.Checked Then
        '    res1 = 0


        If Form3.RadioButton1.Checked Then
            res2 = 5
            total = total + res2
        ElseIf Form3.RadioButton2.Checked Then
            res2 = 0
            total = total + res2
        ElseIf Form3.RadioButton3.Checked Then
            res2 = 0
            total = total + res2
        ElseIf Form3.RadioButton4.Checked Then
            res2 = 0
            total = total + res2
            'ElseIf Form3.RadioButton2.Checked Then
            '    res2 = 0
            If Form4.RadioButton3.Checked Then
                res3 = 5
                'ElseIf Form4.RadioButton1.Checked Then
                '    res3 = 0
                If Form5.RadioButton4.Checked Then
                    res4 = 5
                    'ElseIf Form5.RadioButton1.Checked Then
                    '    res4 = 0
                    If Form6.RadioButton3.Checked Then
                        res5 = 5
                    ElseIf Form6.RadioButton1.Checked Then
                        res5 = 0
                    ElseIf Form6.RadioButton2.Checked Then
                        res5 = 0
                    ElseIf Form6.RadioButton4.Checked Then
                        res5 = 0
                        'ElseIf Form6.RadioButton1.Checked Then
                        '    res5 = 0
                    End If
                End If
            End If
        End If
    End If





    'total = (res1 + res2 + res3 + res4 + res5)

    MessageBox.Show(total)
End Sub

结束课程 但它不起作用......