从输入框计算，带有字母输入的错误消息

Question

我一直在努力解决 Visual Basic 中一个令人尴尬和烦人的小问题（正如您可能看到的，我是初学者）。问题是输入字母而不是数字时的错误消息系统。我得到“无法从整数转换为字符串。

对此的任何帮助将不胜感激。

这是我的代码：

    Dim number1, number2 As Integer
    Dim sum As String

    number1 = InputBox("first value:")
    number2 = InputBox("second value:")
    sum = number1 + number2

    If IsNumeric(sum) Then
        MsgBox("The sum of the numbers " & number1 & " and " & number2 & " is: " & sum)
    ElseIf Not IsNumeric(sum) Then
        MsgBox("You may only type numbers into the fields!, trie again")
    End If

提前谢谢你:)！

Answer 1

您错误地进行了Type 转换。改进的代码：

Dim input1, input2 As String

input1 = InputBox("first value:")
input2 = InputBox("second value:")

If IsNumeric(input1) And IsNumeric(input2) Then
    MsgBox("The sum of the numbers " & input1 & " and " & input2 & " is: " & (Convert.ToInt32(input1) + Convert.ToInt32(input2)).ToString())
Else
    MsgBox("You may only type numbers into the fields!, try again")
End If

InputBox 通过将它们与整数类型变量相关联来返回隐式转换为Integer 的字符串，因此在输入非数字值时会引发错误。避免问题的最佳方法是始终依赖正确的类型，如上面的代码所示：输入是字符串，但IsNumeric 将精确的字符串作为输入。一旦确认了正确的输入，就会执行到相应类型的转换（Integer，但您可能希望依靠Decimal 或Double 来计算小数位）并使用数字类型执行mathematica 运算。最后，我正在执行到String 的转换（只是为了保持这个答案的一致性），但请记住，VB.NET 会隐式执行此转换（从数字到字符串），没有任何问题。

Answer 2

在您的数字框上进行验证，以便它们必须是数字，而不仅仅是您的总和。

If Not IsNumeric(number1) Then
  MsgBox("You may only type numbers into the fields!, try again")
End If

If Not IsNumeric(number2) Then
  MsgBox("You may only type numbers into the fields!, try again")
End If