Visual Basic-输入验证

Question

我需要帮助解决一个小问题。我编程时间不长，不知道如何解决这个问题。我有一个学校的小项目，我不明白为什么在验证输入时会出现这个错误。

例如，我正在通过创建一个函数来根据输入的值返回真值或假值来检查输入是否有效以及在最小和最大范围之间。我使用函数的原因是因为我正在进行多次类似的检查，我认为与其再次重写它，这是执行此任务的最佳方式。

Do While inputValid(string, min, max)

这是我的验证，下面是验证这一点的简单函数。

Private Function inputValid(input As String, min As Integer, max As Integer)
    If Not IsNumeric(input) Then
        Return False
    End If

    If input > min Or input < max Then
        Return False
    Else
        Return True
    End If
End Function

出于某种原因，尽管事实如此，在检查值是否在数值范围内之前，它应该确保该值是数值。当我键入nothing或字符串时，它仍然会向我发送一个错误，因为它试图将其转换为double。然而，如果我没有进行任何范围之间的检查，如果它只是一个没有错误的数字，那么它会检查得很好。

有人能帮我修一下吗？谢谢

Answer 1

您可以使用整数。TryParse函数检查字符串是否可以转换为整数。

此外，您还可以返回一个布尔值，它是比较的结果：而不是类似于

所以你的函数看起来像

Private Function StringIsValidInteger(s As String, min As Integer, max As Integer) As Boolean
    Dim tmp As Integer

    If Integer.TryParse(s, tmp) Then
        Return (tmp >= min AndAlso tmp <= max)
    End If

    Return False

End Function

Answer 2

使用正则表达式对字符串进行数值验证可能会更好

Private Function inputValid(input As String, min As Integer, max As Integer)
    dim regex as new Regex("[\d]+")    
    If not regex.isMatch(input) OrElse cint(input) > min OrElse cint(input) < max Then
        Return False
    Else
        Return True
    End If
End Function

Answer 3

您可以使用CInt将字符串转换为整数

Private Function inputValid(input As String, min As Integer, max As Integer)
    Dim v as Integer
    If Not IsNumeric(input) Then
        Return False
    End If
    v=CInt(input)
    If v < min Or v > max Then
        Return False
    Else
        Return True
    End If
End Function