在VB里可以用Asc。
例如你要判断字符变量a是什么字符，你就这样：
tmp = Asc(a)
If tmp < Asc("9") + 1 And tmp > Asc("0") - 1 Then
msgBox "这是一个数字！"
End If
判断字母之类的方法差不多的。
2. 用vb编程实现输入一个字符,判断该字符是字母字符、数字字符还是其他...
ascii码可以帮你。在VB里可以用Asc。例如你要判断字符变量a是什么字符，你就这样：tmp = Asc(a)If tmp < Asc("9") + 1 And tmp > Asc("0") - 1 Then msgBox "这是一个数字！"End If 判断字母之类的方法差不多的。
vb程序题 输入一个字符,判断该字符是字母字符、数字字符还是其他字符...
a=inputbox("请输入一个字符")select case a case "0" to "9"msgbox "是数字"case "a" to "z","A" to "Z"msgbox "是字母"case else msgbox "是其它字符"end select
vb设计 通过键盘输入一个字符,判断是大写字母、小写字母、数字还是其他...
Dim R R = InputBox("请输入：")If R Like "[A-Z]" Then Print "大写！"ElseIf R Like "[a-z]" Then Print "小写！"ElseIf R Like "[0-9]" Then Print "数字！"Else Print "其它！"End If
VB编程 输入一字符,判断其是否是字母,若是字母,再判断是“大写字母...
a = InputBox("输入一个字符，如果过位，系统将截取第一位，如果留空，系统取小写a")If Len(a) = 0 Then a = "a"ElseIf Len(a) > 1 Then a = Mid(a, 1, 1)End If If Asc(a) >= Asc("a") And Asc(a) <= Asc("z") Then MsgBox "字符 " & a & " 为小写字母"If ...
刚学vb 在文本框中输入一个字符,判断是字母还是数字字符 或者其他字符...
s是变量，不该打引号。下面是用选择语句来处理，可能比较清晰点。Private Sub Command1_Click() Dim s As String s = Text1 If Len(s) = 1 Then Select Case s Case "a" To "z", "A" To "Z" MsgBox "字母" Case "0" To "9" MsgBox "数字" Case El...
VB编程:输入一个字符串,判断其中有多少大写字母小写字母数字字符空
elseif mid(s,i,1) =" " Or mid(s,i,1)=" " Then Num4 = Num4 + 1 else Num5 = Num5 + 1 end if next i print "大写字母有：";Num1;"个"print "小写字母有：";Num2;"个"print "数字字符有：";Num3;"个"print "空格字符有：";Num4;"个"print "其它字符有："...
vb输入一个字符判断是字母还是数字
ch=inputbox("请输入一个字符：")if ch>="A" And ch<="Z" Or ch>="a" And ch<="z"msgbox(ch & "是字母")else if ch>="0" And ch<="9" then msgbox(ch & "是数字")else msgbox(ch & "不是字母，也不是数字")end if end if ...
VB:文本框中输入一个字符,判断输入的是属于什么字符
s=text1.text select
VB编写一个程序,统计输入的字符串中小写字母、大写字母、数字及其他符...
Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 57 Then c = c + 1 '数字 End If Print d Next i Print "小写字母" & a & "个"Print "大写字母" & b & "个"Print "数字" & c & "个"Print "其它（包括空格）" & s - a - b - c & "个"Print s End Sub ...
vb判断输入的是数字还是字母?
Private Sub Form_Click()Dim msg, UserInputmsg = "请输入一个字母或0～9之间的数字."UserInput = InputBox(msg) ‘输入一个字母或数字If Not IsNumeric(UserInput) Then ‘判断是否是数字 If Len(UserInput) = 1 Then ‘不是数字时，判断输入的字符串长度是否为1 Select...
