If c >= "A" And c <= "Z" Then
Print "是大写字母"
ElseIf c >= "a" And c <= "z" Then.Print "是小写字母"
ElseIf c >= "0" And c <= "9" Then
Print "是数字"
Else
Print "是其他字符"
End If
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim c As String
c = Chr(KeyAscii)
If c >= "A" And c <= "Z" Then
Print "是大写字母"
ElseIf c >= "a" And c <= "z" Then
Print "是小写字母"
ElseIf c >= "0" And c <= "9" Then
Print "是数字"
Else
Print "是其他字符"
End If
End Sub
Dim c As String
c = Chr(KeyAscii)
If c >= "A" And c <= "Z" Then
Print "是大写字母"
ElseIf c >= "a" And c <= "z" Then
Print "是小写字母"
ElseIf c >= "0" And c <= "9" Then
Print "是数字"
Else
Print "是其他字符"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考