VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的?

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/22 20:12:31

Private Sub Command1_Click()
Dim s As String, i As Integer, k As String
Dim sz As Integer, zm As Integer, fh As Integer, hz As Integer
s = InputBox("请随便输入点啥")
For i = 1 To Len(s)
    Select Case Asc(Mid(s, i, 1))
    Case 48 To 57
        sz = 1
    Case 65 To 90, 97 To 122
        zm = 2
    Case Is < 0
        hz = 4
    Case Else
        fh = 8
    End Select
Next
Select Case sz + zm + hz + fh
Case 1
    k = "纯数字"
Case 2
    k = "纯字母（不分大小写）"
Case 3
    k = "数字和字母的组合"
Case 4
    k = "纯汉字（含全角符号）"
Case 5
    k = "汉字和数字的组合"
Case 6
    k = "汉字和字母的组合"
Case 7
    k = "汉字、数字、字母的组合"
Case 8
    k = "纯符号（半角）"
Case 9
    k = "符号和数字的组合"
Case 10
    k = "符号和字母的组合"
Case 11
    k = "符号、数字、字母的组合"
Case 12
    k = "符号和汉字的组合"
Case 13
    k = "符号、数字、汉字的组合"
Case 14
    k = "符号、字母、汉字的组合"
Case 15
    k = "符号、数字、字母、汉字的组合"
Case Else
    k = "其他"
End Select
MsgBox "你输入的是 " & k
End Sub
再问：请问你写程序的软件是什么，怎么和我的不一样啊？
再答：我的是VB6。你的也许是VB.NET吧

VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的? C#语言中,怎么判断一个字符串是数字,是汉字,还是字母开关的? pb中如何判断在sle_1中录入的是数字还是字母? vb中怎么判断circle画出来的是圆还是半圆,还是圆弧,扇形在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数 vb 变量C为文本框输入的一个字符,判断该字符是大小写字母、数字还是其他变量,必须用到下面的程序代码 vb中通过inputbox输入一个整数后,判断此数能同时被3和5整除,还是只被其中之一整除 pb中如何判断在sle_1中录入的是数字还是字母?你说下好吗 vb中编写简单程序编写简单程序,随机输入几个数,判断其是偶数还是奇数,然后最后是计算出你所输入的数奇偶数分别的个数 C语言程序中如何区分字符是数字还是字母求一vb程序代码,输入三个数字判断是等腰三角形,等边三角形,一般三角形还是不是三角形.只要是输出结果有4个的vb代码都可 VB编程输入一字符,判断其是否是字母,若是字母,再判断是“大写字母”还是“小写字母”