在界面程序设计中，有时我们只想让TextBox控件接收数字型输入，而其他输入被忽略，这怎么实现呢？下面就给出了具体的源代码：
我们为TextBox添加KeyPress事件
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
Beep
KeyAscii = 0
End If
End Sub
上面的具体原理是：判断按下键的KeyAscii值是否在48-57之间，如果是在其间，则输入的为数字，否则就不是，但是有时我们还可能使用到退ge键，以方便输入错误时删除，这样的话，所以必须加上KeyAscii <> 8，以在使用退ge键时不被忽略。