1

我正在使用 Integer.TryParse 方法来验证用户输入在我的程序中是数字还是非数字。1）如果用户输入的是数字，程序将继续并验证用户输入的范围是从 0 到 9。 2）如果用户输入的是非数字输入，程序将显示消息“无效输入”并要求用户从头开始。

以下是我的编码：Sub Main()

    Dim sevenNumbers As Integer()
    sevenNumbers = New Integer(6) {}
    Dim index As Integer
    Dim number As Integer
    Dim reEnter As Boolean = True

    Console.WriteLine("Please enter 7 integers: ")
    Console.WriteLine("<ATTENTION: FROM 0 TO 9 ONLY>")
    Console.WriteLine()

    While reEnter
        For index = 0 To 6

            Console.WriteLine("Please enter the integer no." & "{0}" & " : ", index + 1) 'Prompt user to enter 7 integers.
            sevenNumbers(index) = Console.ReadLine() 'The 7 integers are stored in an array.

            If Integer.TryParse(sevenNumbers(index), number) Then
                While sevenNumbers(index) < 0 Or sevenNumbers(index) > 9
                    Console.WriteLine("<invalid input>")
                    Console.WriteLine()
                    Console.WriteLine("------------------------------------------")
                    Console.WriteLine("<Please re-enter the 7 integers>")
                    Console.WriteLine("------------------------------------------")
                    Console.WriteLine()
                    reEnter = True
                    Exit For
                End While

            Else
                Console.WriteLine("<invalid input>")
                Console.WriteLine()
                Console.WriteLine("------------------------------------------")
                Console.WriteLine("<Please re-enter the 7 integers>")
                Console.WriteLine("------------------------------------------")
                Console.WriteLine()
                reEnter = True
                Exit For

            End If

            reEnter = False

        Next
    End While

结束子

但是，当用户输入非数字输入时，程序无法继续并显示强制关闭的错误。

我试过这个

Sub Main() Dim num As Integer

    Console.Write("enter num:")
    Dim input = Console.ReadLine

    If Integer.TryParse(input, num) Then
        Console.WriteLine("valid. num = " & num)
    Else
        Console.WriteLine("invalid")
    End If
End Sub

它确实有效，我想知道我的编码的哪一部分是错误的？

感谢帮助！！

4

2 回答 2

0

您的两个代码示例是不同的。在您的第二次尝试中，您执行以下操作：

Dim input = Console.ReadLine 
If Integer.TryParse(input, num) Then

上面的代码读入了一个名为 a 的变量input（String因为Console.ReadLine返回 a String）。然后，您尝试将字符串解析为数字。

但是，在您的原始代码中，您这样做（为清楚起见省略了一些行）：

Dim sevenNumbers As Integer()  
sevenNumbers = New Integer(6) {}  
...
sevenNumbers(index) = Console.ReadLine()

在这种情况下，您正在读取已明确声明为Integer. 如果用户键入"abc"，则此时转换将失败-您甚至无法到达，TryParse因为您无法完成输入。

您需要读入一个String变量，然后将该值解析为一个Integer（就像您在第二个代码中所做的那样），而不是读取一个整数。

您可以通过记下调试时实际发生错误的那一行来自己发现这一点：您应该注意程序在 . 上崩溃ReadLine，而不是在TryParse.

于 2012-09-27T07:42:19.670 回答
0

嗯。这一行：

sevenNumbers(index) = Console.ReadLine()

将任何已读入的文本存储到Integers 数组中。如果它正在编译，那么当你到达任何后面的代码时，你已经来不及控制转换了。它已经发生了。

也许sevenNumbers应该是String()？

（你真的应该打开OPTION STRICT-OPTION EXPLICIT它应该在编译代码时为你找到这样的问题）

于 2012-09-27T07:43:12.697 回答