平均值计算器MsgBox错误提示实现问题：GUI触发提示时崩溃

崩溃根源 #

你的代码一开始就直接把文本框内容赋值给Integer变量（比如Dim int_grade1 As Integer = TxtboxNum1.Text），但如果文本框为空、输入了字母/符号，VB.NET无法直接将这些内容转换为整数，所以还没走到错误提示逻辑就直接崩溃了。另外原代码里的范围判断写了< -1，和你需求的1-100不符，得改成<1。

修复思路 #

• 先做输入验证，确认所有输入合法后再进行转换和计算
• 验证顺序：先检查是否为空 → 再检查是否是有效数字 → 最后检查是否在1-100范围内
• 验证不通过时弹出提示，直接终止后续计算逻辑
• 所有输入验证通过后，再转换数值、计算平均值、设置结果样式

修复后的完整代码 #

Private Sub btnCalcaulate_Click(sender As Object, e As EventArgs) Handles btnCalcaulate.Click
    ' 重置标签颜色，清除之前的错误标记
    LblNumber1.ForeColor = Color.Black
    lblNumber2.ForeColor = Color.Black
    lblNumber3.ForeColor = Color.Black
    lblAverageNum.ForeColor = Color.Black

    ' 验证第一个输入框
    If String.IsNullOrEmpty(TxtboxNum1.Text) Then
        MsgBox("请输入数字1的值")
        TxtboxNum1.Focus()
        LblNumber1.ForeColor = Color.Red
        Return ' 终止后续执行
    ElseIf Not IsNumeric(TxtboxNum1.Text) Then
        MsgBox("数字1必须是有效数字")
        TxtboxNum1.Focus()
        LblNumber1.ForeColor = Color.Red
        Return
    ElseIf CInt(TxtboxNum1.Text) < 1 Or CInt(TxtboxNum1.Text) > 100 Then
        MsgBox("数字1必须在1-100范围内")
        TxtboxNum1.Focus()
        LblNumber1.ForeColor = Color.Red
        Return
    End If

    ' 验证第二个输入框
    If String.IsNullOrEmpty(txtBoxNum2.Text) Then
        MsgBox("请输入数字2的值")
        txtBoxNum2.Focus()
        lblNumber2.ForeColor = Color.Red
        Return
    ElseIf Not IsNumeric(txtBoxNum2.Text) Then
        MsgBox("数字2必须是有效数字")
        txtBoxNum2.Focus()
        lblNumber2.ForeColor = Color.Red
        Return
    ElseIf CInt(txtBoxNum2.Text) < 1 Or CInt(txtBoxNum2.Text) > 100 Then
        MsgBox("数字2必须在1-100范围内")
        txtBoxNum2.Focus()
        lblNumber2.ForeColor = Color.Red
        Return
    End If

    ' 验证第三个输入框
    If String.IsNullOrEmpty(txtBoxNum3.Text) Then
        MsgBox("请输入数字3的值")
        txtBoxNum3.Focus()
        lblNumber3.ForeColor = Color.Red
        Return
    ElseIf Not IsNumeric(txtBoxNum3.Text) Then
        MsgBox("数字3必须是有效数字")
        txtBoxNum3.Focus()
        lblNumber3.ForeColor = Color.Red
        Return
    ElseIf CInt(txtBoxNum3.Text) < 1 Or CInt(txtBoxNum3.Text) > 100 Then
        MsgBox("数字3必须在1-100范围内")
        txtBoxNum3.Focus()
        lblNumber3.ForeColor = Color.Red
        Return
    End If

    ' 所有输入验证通过，开始计算
    Dim int_grade1 As Integer = CInt(TxtboxNum1.Text)
    Dim int_grade2 As Integer = CInt(txtBoxNum2.Text)
    Dim int_grade3 As Integer = CInt(txtBoxNum3.Text)

    Dim int_avgGrade As Integer = (int_grade1 + int_grade2 + int_grade3) \ 3 ' 用整数除法\，避免小数转整数的精度问题

    lblAverageNum.Text = int_avgGrade.ToString()

    ' 设置结果颜色
    If int_avgGrade >= 60 Then
        lblAverageNum.ForeColor = Color.Green
    Else
        lblAverageNum.ForeColor = Color.Red
    End If
End Sub

额外优化点 #

1. 用String.IsNullOrEmpty代替空字符串判断，逻辑更严谨
2. 每个验证分支后加Return，避免无效的后续代码执行
3. 计算平均值用整数除法\，如果需要保留小数可以改成CDbl计算后再转字符串
4. 每次点击计算先重置标签颜色，避免之前的错误状态影响正常输入后的显示

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