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     输入数字只能是0-9中的任意数字啊,这句什么意思啊
       '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
为什么不要KeyAscii>48

应该是"为什么不要KeyAscii<48 "
因为then后面是取消用户的这一次输入
应该要KeyAscii<48 上面的例子可在text1里输入","

恩  是 "为什么不要KeyAscii<48 "
我还是不太明白

因为then后面是取消用户的这一次输入
48-57之间是数字不用取消,是有用的,<48的不是数字没用要取消.

If KeyAscii > 57 And KeyAscii <> 13 And KeyAscii <> 8 Then
.................
end if
是不是要把    KeyAscii <48 加上去了啊

If (KeyAscii > 57 or KeyAscii <48) And KeyAscii <> 13 And KeyAscii <> 8 Then

If KeyAscii > 57 or (KeyAscii <48 And KeyAscii <> 13 And KeyAscii <> 8) Then

[[it] 本帖最后由 逐日 于 2008-12-13 16:25 编辑 [/it]]

恩

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim MyVal As Long
'ASCII码48～57表示按键盘的0～9键,其中13为"回车";8为"退格"
If Index = 0 Or Index = 3 Then
Do Until KeyAscii > 47 And KeyAscii < 58 And KeyAscii <> 13 And KeyAscii <> 8
        KeyAscii = 0 'KeyAscii = 0用于取消用户的这一次输入
        MyVal = MsgBox("输入字符必须在0-9之间！", 2 + vbExclamation, "提示")
        Select Case MyVal
            Case 3
                End
            Case 4
                Exit Do
            Case 5
                Text1(1).SetFocus
                Exit Do
        End Select
Loop
End If
End Sub

你看一下ASCII码就知道为什么了.

[[it] 本帖最后由 xandy 于 2008-12-16 10:47 编辑 [/it]]

学习