Private Sub Command1_Click()
K = InputBox("请输入字符:")
If (Z >= K) And (K >= a) Then Print "大写字母"
If (Z >= K) And (K >= a) Then Print "小写字母"
If (9 >= K) And (K >= 0) Then Print "数字"
End Sub
Private Sub Command1_Click()
Dim K As String
K = InputBox("请输入字符:")
If K >= "A" And K <= "Z" Then Print "大写字母"
If K >= "a" And K <= "z" Then Print "小写字母"
If K >= "0" And K <= "9" Then Print "数字"
End Sub
