VB.NET 成绩转等级代码运行后始终输出A级的问题求助

核心语法错误出在Select Case行的测试表达式写法：

• 原代码将「intScore 是否等于 CInt(txtScore.Text)」这个布尔判断的结果，作为Select的分支判断依据，全程没有把真正的分数值传入判断流程。
• 变量intScore是刚声明的局部整数，默认初始值为0，没有被显式赋值，导致Select的测试值永远是布尔类型（仅True/False两种可能，对应隐式数值-1/0），根本不是实际输入的分数值。
• 分支中写的带小数的区间边界（如70 To 84.99）和整数类型的分数变量不匹配，属于冗余的无效逻辑。

因为布尔类型的测试值（0/-1）落在所有整数区间分支的范围外，加上VB跨类型比较的隐式转换容错，最终会命中第一个带关系判断的Case >=85分支，无论输入什么分数都固定输出A级。

调整逻辑结构，先完成输入转换与合法性校验，再基于真实分数值做分支判断，修正后的可运行代码如下：

Public Class frmMarkBook
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim intScore As Integer
        ' 先做输入合法性校验，避免非数字输入触发异常
        If Not Integer.TryParse(txtScore.Text.Trim(), intScore) Then
            MessageBox.Show("请输入有效的分数百分比")
            Return
        End If

        ' 基于真实分数值做分支判断
        Select Case intScore
            Case >= 85
                lblGradeResult.Text = "A"
                txtGradeComment.Text = "Excellent result"
            Case 70 To 84
                lblGradeResult.Text = "B"
                txtGradeComment.Text = "Very good result"
            Case 55 To 69
                lblGradeResult.Text = "C"
                txtGradeComment.Text = "Satisfactory result"
            Case 40 To 54
                lblGradeResult.Text = "D"
                txtGradeComment.Text = "Needs some improvements"
            Case 0 To 39
                lblGradeResult.Text = "E"
                txtGradeComment.Text = "Needs to repeat task"
            Case Else
                MessageBox.Show("请输入0-100区间内的有效分数")
        End Select
    End Sub
End Class

修正要点：

• 拆分开原本混写的逻辑：将输入转换、赋值、分支判断分成独立步骤，从根源上避免测试值错位
• 用Integer.TryParse替代直接CInt转换，避免用户输入非数字内容时直接触发运行时崩溃
• 将原代码中带小数的区间边界调整为和整数分数匹配的整数范围，消除类型不匹配的无效逻辑；如果需要支持带小数的分数输入，可以将分数变量类型改为Double，用Double.TryParse做转换，保留原代码中带0.99边界的区间判断逻辑即可
• 补充了分数范围校验，对超出0-100合理区间的输入给出提示

内容的提问来源于stack exchange，提问作者petrikor