输入验证与 TryParse

13.1 为什么输入验证很重要？

程序不能控制用户输入什么，但可以控制怎样处理用户输入。

假设成绩文本框应该输入 0–100 的整数，但用户可能输入：

可靠程序应该分辨这些问题，并告诉用户怎样修正，而不是直接崩溃或产生不合理结果。

13.2 为什么不能只依赖 CInt？

之前我们经常写：

Dim score As Integer = CInt(txtScore.Text)

如果用户输入 85，这没有问题。但如果输入：

abc

程序在转换时会失败，并产生异常。

13.3 TryParse 的基本思想

TryParse 会尝试转换，并返回 Boolean 表示是否成功。

如果成功，转换后的值会放入 score；如果失败，返回 False。

Dim score As Integer

If Integer.TryParse(txtScore.Text, score) Then
    lblResult.Text = "有效整数：" & score.ToString()
Else
    lblResult.Text = "请输入有效整数。"
End If

13.4 Integer.TryParse

Dim age As Integer

If Integer.TryParse(txtAge.Text, age) Then
    lblResult.Text = "年龄：" & age.ToString()
Else
    lblResult.Text = "年龄必须是整数。"
End If

常见测试：

13.5 格式验证之后还要检查范围

Dim score As Integer

If Not Integer.TryParse(txtScore.Text, score) Then
    lblResult.Text = "成绩必须是整数。"
    Exit Sub
End If

If score < 0 OrElse score > 100 Then
    lblResult.Text = "成绩必须介于 0 与 100。"
    Exit Sub
End If

lblResult.Text = "成绩有效：" & score.ToString()

13.6 使用 Exit Sub 简化验证流程

验证失败后，通常没有必要继续执行事件处理程序。

If String.IsNullOrWhiteSpace(txtName.Text) Then
    lblResult.Text = "请输入学生姓名。"
    txtName.Focus()
    Exit Sub
End If

Exit Sub 会立即结束当前 Sub。这样可以避免大量嵌套 If。

不推荐：过度嵌套

If Not String.IsNullOrWhiteSpace(txtName.Text) Then

    If Integer.TryParse(txtScore.Text, score) Then

        If score >= 0 AndAlso score <= 100 Then
            ' 真正处理
        End If

    End If

End If

更清楚：失败就提前离开

If String.IsNullOrWhiteSpace(txtName.Text) Then
    lblResult.Text = "请输入学生姓名。"
    Exit Sub
End If

If Not Integer.TryParse(txtScore.Text, score) Then
    lblResult.Text = "请输入有效整数成绩。"
    Exit Sub
End If

If score < 0 OrElse score > 100 Then
    lblResult.Text = "成绩必须介于 0 与 100。"
    Exit Sub
End If

' 验证通过，继续处理

13.7 检查空白文字

对于姓名、课程、编号等文字输入，可以使用：

If String.IsNullOrWhiteSpace(txtStudentName.Text) Then
    lblResult.Text = "请输入学生姓名。"
    txtStudentName.Focus()
    Exit Sub
End If

它会处理：

• 空字符串
• 只包含空格的字符串
• Nothing

因此比单纯：

If txtStudentName.Text = "" Then

更完整。

13.8 Double.TryParse 与 Decimal.TryParse

Double.TryParse

Dim temperature As Double

If Not Double.TryParse(txtTemperature.Text, temperature) Then
    lblResult.Text = "请输入有效温度。"
    Exit Sub
End If

Decimal.TryParse

Dim price As Decimal

If Not Decimal.TryParse(txtPrice.Text, price) Then
    lblResult.Text = "请输入有效价格。"
    Exit Sub
End If

13.9 一次验证多个字段

实际表单通常不只一个输入。最简单的初学方式是按顺序逐项验证：

Dim quantity As Integer
Dim unitPrice As Decimal

If String.IsNullOrWhiteSpace(txtProductName.Text) Then
    lblResult.Text = "请输入产品名称。"
    txtProductName.Focus()
    Exit Sub
End If

If Not Integer.TryParse(txtQuantity.Text, quantity) Then
    lblResult.Text = "数量必须是整数。"
    txtQuantity.Focus()
    Exit Sub
End If

If quantity <= 0 Then
    lblResult.Text = "数量必须大于 0。"
    txtQuantity.Focus()
    Exit Sub
End If

If Not Decimal.TryParse(txtUnitPrice.Text, unitPrice) Then
    lblResult.Text = "请输入有效单价。"
    txtUnitPrice.Focus()
    Exit Sub
End If

If unitPrice < 0 Then
    lblResult.Text = "单价不能小于 0。"
    txtUnitPrice.Focus()
    Exit Sub
End If

13.10 使用 MessageBox 显示验证错误

除了 Label，也可以使用 MessageBox：

If Not Integer.TryParse(txtScore.Text, score) Then

    MessageBox.Show(
        "请输入 0 到 100 之间的整数成绩。",
        "输入错误",
        MessageBoxButtons.OK,
        MessageBoxIcon.Warning)

    txtScore.Focus()
    Exit Sub

End If

对于重要错误，MessageBox 很醒目；但如果表单中有很多字段，也可以考虑在字段旁边显示错误。

13.11 ErrorProvider 简介

Windows Forms 的 ErrorProvider 可以在控件旁显示错误图标。

从 Toolbox 加入一个 ErrorProvider，名称设为：

errInput

设置错误：

errInput.SetError(txtScore, "请输入有效成绩。")

清除错误：

errInput.SetError(txtScore, "")

例如：

Dim score As Integer

errInput.SetError(txtScore, "")

If Not Integer.TryParse(txtScore.Text, score) Then
    errInput.SetError(txtScore, "成绩必须是整数。")
    txtScore.Focus()
    Exit Sub
End If

13.12 实作：学生成绩验证器

建立新的 Windows Forms 项目：

StudentScoreValidator2026

这个程序让用户输入学生姓名、测验成绩和考试成绩。程序会先完整验证，再计算平均分，并显示等级。

在 Form1 加入：

完整的验证与计算代码

Private Sub btnValidate_Click(sender As Object, e As EventArgs) _
    Handles btnValidate.Click

    errInput.Clear()
    lblResult.Text = ""

    Dim studentName As String = txtStudentName.Text.Trim()
    Dim quizScore As Integer
    Dim examScore As Integer

    If String.IsNullOrWhiteSpace(studentName) Then
        errInput.SetError(txtStudentName, "请输入学生姓名。")
        txtStudentName.Focus()
        Exit Sub
    End If

    If Not Integer.TryParse(txtQuizScore.Text, quizScore) Then
        errInput.SetError(txtQuizScore, "测验成绩必须是整数。")
        txtQuizScore.Focus()
        Exit Sub
    End If

    If quizScore < 0 OrElse quizScore > 100 Then
        errInput.SetError(txtQuizScore, "测验成绩必须介于 0 与 100。")
        txtQuizScore.Focus()
        Exit Sub
    End If

    If Not Integer.TryParse(txtExamScore.Text, examScore) Then
        errInput.SetError(txtExamScore, "考试成绩必须是整数。")
        txtExamScore.Focus()
        Exit Sub
    End If

    If examScore < 0 OrElse examScore > 100 Then
        errInput.SetError(txtExamScore, "考试成绩必须介于 0 与 100。")
        txtExamScore.Focus()
        Exit Sub
    End If

    Dim average As Double = (quizScore + examScore) / 2.0
    Dim grade As String

    Select Case average
        Case Is >= 80
            grade = "A"
        Case Is >= 70
            grade = "B"
        Case Is >= 60
            grade = "C"
        Case Is >= 50
            grade = "D"
        Case Else
            grade = "F"
    End Select

    lblResult.Text =
        $"学生：{studentName}" & Environment.NewLine &
        $"测验：{quizScore}" & Environment.NewLine &
        $"考试：{examScore}" & Environment.NewLine &
        $"平均分：{average:N2}" & Environment.NewLine &
        $"等级：{grade}"

End Sub

清除按钮

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

    txtStudentName.Clear()
    txtQuizScore.Clear()
    txtExamScore.Clear()
    lblResult.Text = ""
    errInput.Clear()
    txtStudentName.Focus()

End Sub

13.13 逐步理解验证流程

13.14 必须测试哪些输入？

13.15 初学者常见错误

13.16 小练习

1. 加入作业成绩 txtAssignmentScore，并验证 0–100。
2. 把平均分改成三项成绩平均。
3. 加入 Decimal 输入“课程费用”，使用 Decimal.TryParse 并确保费用 ≥ 0。
4. 加入 Double 输入“出席率”，要求介于 0 与 100。
5. 改用 MessageBox 显示其中一个错误，并比较与 ErrorProvider 的体验。
6. 为 txtQuizScore 与 txtExamScore 设置错误后，成功验证时清除对应错误。
7. 测试边界值 0、50、80、100 与无效值 -1、101、abc。