Question

VB程序，编写一个只能输入0-9数字的程序

编写一个VB程序，使窗体上的文本框中按回车键后只能接收0-9的数字字符，如果输入其他数，则响铃，并清除该字符
我现在刚开始学习VB，Do while 等语句还看不懂，例题里面有个IsNumeric函数，判断输入的是否是数字字符，下面是我编写的，窗体中只建了tex控件，请看下问题出在哪里？
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) = False Then
Beep
Text1.Text = ""
If Text1.Text < 0 Or Text1.Text > 9 Then
Beep
Text1.Text = ""
End If
End If
End If
End Sub

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
i = 1
Do While i <= Len(Text1.Text)
If Mid(Text1.Text, i, 1) < "0" Or Mid(Text1.Text, i, 1) > "9" Then ‘字符不是数字
Beep ‘响铃
Text1.Text = Mid(Text1.Text, 1, i - 1) & Mid(Text1.Text, i + 1) ‘删除该字符
Else

i = i + 1 ‘准备检查下一字符
End If
Loop
End If
End Sub

Answer 2

dim a as double
a=val(text1.text)
IF Int(a)=a then   '首先判断输入的是不是整型
   if a<0 or a>9 then    '判断在不在0－9范围内，如果不在，执行下面的的语句
      '响铃
      text1.text=""
   End If
 End If

Answer 3

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 46, 13, 48 To 59

Case Else ' 其他数值。
KeyAscii = 0
MsgBox "请正确填写字符……", 0, App.EXEName
End Select

End Sub