Question

在VB中text文本框中只能输入数字，是如下编程语言。 求详解

If KeyAscii < 48 Or KeyAscii > 57 Then
If (KeyAscii <> 46) And (KeyAscii <> 8) Then
Beep
Beep
KeyAscii = 0
End If
End If

Answer 1

ascii表中48 到57是数字
46是小数点
8是backspace键
如果按下的不是那些键就发出beep声 屏幕上不显示内容

Answer 2

asc编码，48----57 对应的字符为 0--9
46对应的是 小数点 .
8对应的是 退格删除键
If KeyAscii < 48 Or KeyAscii > 57 Then
If (KeyAscii <> 46) And (KeyAscii <> 8) Then
Beep
Beep
KeyAscii = 0
End If
End If
意为：
如果不是输入数字，再判断如果不是小数点及退格键，就响两声，同时取消输入

Answer 3

监测按下的键盘的ascii值。If KeyAscii < 48 Or KeyAscii > 57 Then表示不是数字键盘，不执行任何操作！下面那个也是一样的，表示删除键的