如何使用VB.NET判断第三个文本框数值是否处于另外两文本框数值区间？

核心逻辑 #

不管前两个文本框的数值大小，先通过Math.Min和Math.Max确定区间的上下限，再判断第三个数值是否处于该区间内（包含边界值）。同时需要处理文本框输入非数值的情况，避免程序报错。

完整实现示例（WinForms） #

以下是按钮点击触发判断的完整代码，包含输入合法性校验：

Private Sub btnCheckResult_Click(sender As Object, e As EventArgs) Handles btnCheckResult.Click
    Dim num1, num2, num3 As Double
    
    ' 校验并转换第一个文本框输入
    If Not Double.TryParse(txtLowerOrUpper1.Text, num1) Then
        MessageBox.Show("第一个文本框请输入有效的数值！")
        txtLowerOrUpper1.Focus()
        Return
    End If
    
    ' 校验并转换第二个文本框输入
    If Not Double.TryParse(txtLowerOrUpper2.Text, num2) Then
        MessageBox.Show("第二个文本框请输入有效的数值！")
        txtLowerOrUpper2.Focus()
        Return
    End If
    
    ' 校验并转换第三个文本框输入
    If Not Double.TryParse(txtTargetNum.Text, num3) Then
        MessageBox.Show("第三个文本框请输入有效的数值！")
        txtTargetNum.Focus()
        Return
    End If
    
    ' 计算区间上下限
    Dim lowerBound = Math.Min(num1, num2)
    Dim upperBound = Math.Max(num1, num2)
    
    ' 判定结果
    If num3 >= lowerBound AndAlso num3 <= upperBound Then
        MessageBox.Show("结果：正常")
        ' 也可直接在标签显示结果：lblResult.Text = "结果：正常"
    Else
        MessageBox.Show("结果：异常")
        ' lblResult.Text = "结果：异常"
    End If
End Sub

优化建议 #

1. 封装数值转换逻辑：如果多处需要数值校验，可以封装成辅助函数减少重复代码：

Private Function ParseDoubleSafe(input As String, ByRef result As Double) As Boolean
    Return Double.TryParse(input, NumberStyles.Any, CultureInfo.InvariantCulture, result)
End Function

2. 实时判断：若需要在用户输入时实时更新判定结果，可将判断逻辑移至文本框的TextChanged事件：

Private Sub txtTargetNum_TextChanged(sender As Object, e As EventArgs) Handles txtTargetNum.TextChanged, txtLowerOrUpper1.TextChanged, txtLowerOrUpper2.TextChanged
    ' 复用上述的数值转换和判定逻辑，更新界面结果标签
    Dim num1, num2, num3 As Double
    If ParseDoubleSafe(txtLowerOrUpper1.Text, num1) AndAlso ParseDoubleSafe(txtLowerOrUpper2.Text, num2) AndAlso ParseDoubleSafe(txtTargetNum.Text, num3) Then
        Dim lowerBound = Math.Min(num1, num2)
        Dim upperBound = Math.Max(num1, num2)
        lblResult.Text = If(num3 >= lowerBound AndAlso num3 <= upperBound, "结果：正常", "结果：异常")
    Else
        lblResult.Text = "请输入有效的数值"
    End If
End Sub

3. 整数场景适配：如果仅需处理整数，将Double替换为Integer，使用Integer.TryParse即可。

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