Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Dim myval As Long
  'ASCII码48～57表示按键盘的0～9键，其中13为“回车”；8为“退格”
line1:
  If Index = 0 Or Index = 3 Then
     If KeyAscii > 57 And KeyAscii <> 13 And KeyAscii <> 8 Then
       'KeyAscii = 0用于取消用户的这一次输入
       KeyAscii = 0
       myval = MsgBox("输入字符必须在0-9之间！", 2 + vbExclamation, "提示")
       If myval = 3 Then End
       If myval = 4 Then GoTo line1
       If myval = 5 Then GoTo line2
line2:
       text1(1).SetFocus
     End If
  End If
End Sub



这句  If KeyAscii > 57 And KeyAscii <> 13 And KeyAscii <> 8 Then ...... 什么意思啊

就是話keyascii 小於57的並且不等於13也就是回車也不等於8的就
如:1就小於57

那是书上写错了啊 KeyAscii > 57 应该是KeyAscii < 57啊

是我說錯了，
If KeyAscii > 57 And KeyAscii <> 13 And KeyAscii <> 8 Then
如果keyascii 大於57時並且不等於13也不等於8時就不能夠輸入
就是這個意思啊
可以見keyascii碼

[[it] 本帖最后由 jxyga111 于 2008-9-18 13:31 编辑 [/it]]

這是一份keyascii碼:[url=http://bbs.bccn.net/thread-223595-1-1.html]http://bbs.bccn.net/thread-223595-1-1.html[/url]

<>  是等于的意思???  我太笨了不明白

和数学里类似，等号是等于的意思，<>是不等于的意思。

可以自己测试一下嘛，而且书上一般也会讲到。

谢谢啊