VB编写的如何进行数据过滤，判断输入是字母

[麦田守望者]

遇到一个问题，要求keypress事件，对输入的数据进行过滤。如果输入的是字母，则显示输入正确；如果输入的是非字母，则响铃且消除该字符。
这个怎么判断字母呢？按照asc函数？那如果输入的是数字呢？

[东方之珠]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not Chr(KeyAscii) Like "[a-zA-Z]" Then
       KeyAscii = 0
       Debug.Print "输入错误！"
    Else
       Debug.Print "输入正确！"
    End If
End Sub

[麦田守望者]

这个网上搜到的，有没有对于初学者简单的办法？

[libralibra]

这是标准做法,已经很简单了

[东方之珠]

这样也行：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
        Debug.Print "输入正确！"
    Else
        KeyAscii = 0
        Debug.Print "输入错误！"
    End If
End Sub

[贝隆]

[Quote=引用 4 楼 的回复:]
这样也行：

VB code
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
Debug.Print "输入正确！"
Else
……
[/Quote]
+1000

[舉杯邀明月]

据说在 VB 中，IF 语句中的逻辑表达式是会全部运算完的。

我觉得这样写运行效率会高些吧：

Private Sub Text1_KeyPress(KeyAscii As Integer)
   Dim i%
   i = KeyAscii Or 32
   If (i >= 97 And i <= 122) Then
      Debug.Print "输入正确！"
   Else
      KeyAscii = 0
      Debug.Print "输入错误！"
   End If
End Sub

[of123]

人机界面，效率应该足够。任何事情要看应用场合。

[麦田守望者]

[Quote=引用 6 楼 的回复:]
据说在 VB 中，IF 语句中的逻辑表达式是会全部运算完的。

我觉得这样写运行效率会高些吧：

VB code

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i%
i = KeyAscii Or 32
If (i >= 97 And i <= 122) Then
Debug.Print ……
[/Quote]
还有小写字母呢？同理啊？

[舉杯邀明月]

[Quote=引用 8 楼 的回复:]
引用 6 楼 的回复:
据说在 VB 中，IF 语句中的逻辑表达式是会全部运算完的。

我觉得这样写运行效率会高些吧：

VB code

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i%
i = KeyAscii Or 32
If (i >= 97 And i <= 122) Then
Debug.Print ………

还有小写字母呢？同理啊？

[/Quote]

童鞋，注意这句啊：
i = KeyAscii Or 32

-_-!!!