Vb.net 选择案例/单选按钮/程序

我是VB新手，需要帮助完成当前的学校作业。作业的要点是使用程序和选择案例制作一个程序，提示用户回答7个短语的正确或错误，并显示其结果。我遇到了一个问题，无法正确显示数字numRight。当我运行它时，numRight最多只能增加到2

e、 g.用户点击真、真、假、真、假、真

numRight=2，事实上这些都是正确答案

有人能解释一下下面代码中的错误吗？谢谢

Public Class CIS14Lab4
'Publicly shared variables
Dim counter As Integer = 0
Dim numRight As Integer = 0

Private Sub btnMain_Click(sender As Object, e As EventArgs) Handles btnMain.Click
    counter += 1

    DisplayPhrase(counter) 'Used for displaying the phrase and adding to the numRight variable
    DisplayResult(numRight) 'Used for displaying the result to the user

    grpBoxTorF.Enabled = True
    radTrue.Checked = False
    radFalse.Checked = False

    lblDebugRight.Text = numRight 'Debugging purposes; displays numRight
End Sub

Sub DisplayPhrase(c As Integer)
    Select Case c 'Passed from counter
        Case 1 'True
            txtResult.Text = "1. The squeaky wheel gets the grease."
            TrueRight()
        Case 2 'True
            txtResult.Text = "2. Cry and you cry alone."
            TrueRight()
        Case 3 'False
            txtResult.Text = "3. Opposites attract."
            FalseRight()
        Case 4 'False
            txtResult.Text = "4. Spare the rod and spoil the child."
            FalseRight()
        Case 5 'True
            txtResult.Text = "5. Actions speak louder than words."
            TrueRight()
        Case 6 'False
            txtResult.Text = "6. Familiarity breeds contempt."
            FalseRight()
        Case 7 'True
            btnMain.Text = "Results:"
            txtResult.Text = "7. Marry in haste, repent at leisure."
            TrueRight()
    End Select
End Sub

Sub DisplayResult(r As Integer)
    If counter = 8 Then
        Select Case r 'Passed from numRight
            Case 7
                txtResult.Text = "Perfect 7/7!"
            Case 5 To 6
                txtResult.Text = "Excellent!"
            Case Is < 5
                txtResult.Text = "You might want to consider taking " &
                                 "Psychology 101."
        End Select
    End If
End Sub

Sub TrueRight() 'Sub proc for "True" answers that are correct.
    If radTrue.Checked Then
        numRight += 1
    End If
End Sub

Sub FalseRight() 'SUb proc for "False" answers that are correct
    If radFalse.Checked Then
        numRight += 1
    End If
End Sub

End Class

公共类CIS14Lab4
'公共共享变量
作为整数的Dim计数器=0
Dim numRight作为整数=0
私有子btnMain\u单击（发件人作为对象，e作为事件参数）处理btnMain。单击
计数器+=1
DisplayPhase（计数器）'用于显示短语并添加到numRight变量
DisplayResult（numRight）“”用于向用户显示结果
grpBoxTorF.Enabled=True
radTrue.Checked=False
radFalse.Checked=False
lblDebugRight.Text=numRight的调试目的；显示numRight
端接头
子显示短语（c为整数）
选择“从计数器传递的案例c”
案例1‘正确
txtResult.Text=“1.吱吱作响的车轮得到润滑脂。”
TrueRight（）
案例2'正确
txtResult.Text=“2.哭泣时你会独自哭泣。”
TrueRight（）
案例3“错误”
txtResult.Text=“3.异性相吸。”
假权利
案例4“错误”
txtResult.Text=“4.饶了棍子，宠坏了孩子。”
假权利
案例5'正确
txtreult.Text=“5.行动胜于雄辩。”
TrueRight（）
案例6'假
txtResult.Text=“6.熟悉滋生轻蔑。”
假权利
案例7'正确
btnMain.Text=“结果：”
txtreult.Text=“7.匆忙结婚，从容悔改。”
TrueRight（）
结束选择
端接头
子显示结果（r为整数）
如果计数器=8，则
选择从numRight传递的“案例r”
案例7
txtreult.Text=“完美的7/7！”
案例5至6
txtreult.Text=“非常好！”
病例<5例
TXTRESULT.Text =“您可能需要考虑采取”和
“心理学101”
结束选择
如果结束
端接头
Sub-TrueRight（）“正确”答案的子过程。
如果为真，则检查
numRight+=1
如果结束
端接头
Sub FalseRight（）'用于正确回答“False”的子过程
如果为False，则检查
numRight+=1
如果结束
端接头
末级

已解决@LarsTech解决了我的问题。这对我来说只是一个简单的疏忽。只需在程序完成后移动“计数器+=1”，即可正确计数+正确相加数字。再次感谢

解决了@LarsTech解决了我的问题。这对我来说只是一个简单的疏忽。只需在程序完成后移动“计数器+=1”，即可正确计数+正确相加数字。再次感谢

在用户回答之前增加计数器变量，这是在检查错误的结果。@LarsTech实际上解决了我的问题！哇，我不敢相信我看得太多了。谢谢TrueRight和FalsRight都做同样的事情——一个减量不是应该吗？@user3697824——你能解释一下吗？你的意思是“假”为-1吗？我有两个独立的程序，因为false也被认为是正确答案。我还必须总结一下numRight，这样我才能向用户显示他们是否做得完美、出色或需要进一步研究。好的，对不起。我以为这是在计算一个净结果，你在用户回答之前通过增加你的计数器变量来检查错误的结果。@LarsTech这实际上解决了我的问题！哇，我不敢相信我看得太多了。谢谢TrueRight和FalsRight都做同样的事情——一个减量不是应该吗？@user3697824——你能解释一下吗？你的意思是“假”为-1吗？我有两个独立的程序，因为false也被认为是正确答案。我还必须总结一下numRight，这样我才能向用户显示他们是否做得完美、出色或需要进一步研究。好的，对不起。我以为这算是一个净结果，