Question

vb写程序输入一个字符，判断是数字字符？大小字母？其他字符？

Answer 1

private sub form_click()
dim a as string
a=inputbox(“一个字符”,“输入”,“0”)
if a>=“0” and a<=“9” print a;“是一个数字”
elseif a>=“a” and a<=“z” print a;“是一个小写字母”
elseif a>=“A” and a<=“Z” print a;“是一个大写字母”
elseif print a;“是一个其他字符”
end sub

Answer 2

If Asc(Text1.Text) < "58" And Asc(Text1.Text) > "47" Then
MsgBox "数字"
ElseIf Asc(Text1.Text) < "91" And Asc(Text1.Text) > "64" Then
MsgBox "大写字母"
ElseIf Asc(Text1.Text) < "123" And Asc(Text1.Text) > "96" Then
MsgBox "小写字母"
ElseIf Asc(Text1.Text) < 0 Then
MsgBox "汉字或其他字符"
Else
MsgBox "其他字符"
End If