string - 将字母放入字符串时为什么会出错？

Question

我正在制作一个小程序，用于检查您最多输入4个数字，每个数字表示不同的内容。但是我想说“改为选择一个数字”。当有人代替写信时。基本上我的其他情况应该是答案仅包含字母，但是当我运行程序并键入字母然后按Enter时，出现无法将答案转换为 double 字的错误，并且到处寻找解决这个问题的方法，但是没有什么可以接近的。请帮助，我将不胜感激。我键入了一个，然后按Enter键，这是我得到的错误(尽管它包含所有字母。不仅是a。)错误是:{“从字符串“a”转换为类型为Double的转换无效。” }
如果If语句开始，则会发生错误。

    If (e.KeyCode = Keys.Enter) Then

        Dim Answer As String

        Answer = txtAnswer.Text

        If Answer = 1 Then
            txtResponse.Text = "Good"
        ElseIf Answer = 2 Then
            txtResponse.Text = "Good again"
        ElseIf Answer = 3 Then
            txtResponse.Text = "Not too good"
        ElseIf Answer = 4 Then
            txtResponse.Text = "Terrible"
        ElseIf Answer > 4 Or Answer < 1 Then
            txtResponse.Text = "Wrong Answer"
        Else
            txtResponse.Text = "pick a number"
        End If
    End If

Answer 1

这段代码应该可以满足您的需求。

Sub PickANumber()
Dim Valid As Boolean
Dim Data, Answer As String

While Valid = False
    Data = InputBox("Enter number between 1 and 4")
    If IsNumeric(Data) And Data >= 1 And Data <= 4 Then
            Valid = True
        Else
            Valid = False
            Data = MsgBox("Please input a valid number.", vbRetryCancel)
            If Data = vbCancel Then Exit Sub
    End If
Wend

    Select Case Data
    Case 1
        Answer = "Good"
    Case 2
        Answer = "Good again"
    Case 3
        Answer = "Not too good"
    Case 4
        Answer = "Terrible"
    End Select
    MsgBox Answer

End Sub