''' <summary>
        ''' 判断字符串是否为数字
        ''' </summary>
        ''' <param name="value">字符串</param>
        ''' <returns>如果字符串为数字，返回true，否则返回false</returns>
        <Extension()>
        Function IsNumeric(ByVal value As String) As Boolean
            Return Regex.IsMatch(value, "^[+-]?\d*[.]?\d*$")
        End Function
 

 
InStr 函数返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。InStr([start, ]string1, string2[, compare])InStr 函数的语法具有下面的参数：start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果指定了 compare 参数，则一定要有 start 参数。string1 必要参数。接受搜索的字符串表达式。string2 必要参数。被搜索的字符串表达式。Compare可选参数。指定字符串比较。如果省略 compare，Option Compare 的设置将决定比较的类型。
 
例如如下
 
Sub tttt()
 
a = "abvsdf"
 
b = "z"
 
c = InStr(a, b)
 
If c > 0 Then
 
MsgBox "a包含b"
 
Else
 
MsgBox "a不包含b"
 
End If
 
End Sub
 
测试结果
 

 
公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。
 
话题：C语言程序题判断输入的字符类型
 
问题详情：==z) printf("该字符是小写字母"); elseif(ch=A&&回答：#include #include voidmain() { printf("请数输入一个字符:"); charch=getchar(); if(ch='a'&&ch='A'&&ch='0'&&ch话题：c++编程判断输入的字符类型
 
问题详情：编写程序,从键盘输入一个字符,输出字符所属的类型:大写字母回答：void main(){ char ch; printf("请输入一个字符\n"); scanf("%c",&ch); if(ch='A'&&ch='Z') { printf("capital letters\n"); } else if(ch='a'&& ch='z') { printf("small letters\n"); } else if(ch='0'&&ch='') { printf("figures\n"); } else { printf("others\n"); }}
 
参考回答：码如下: #includestdio.hint main(){ int ch; while((ch=getchar())!='`') { while(getchar()!='\n'); 吸收其他字符 包括换行符 if话题：vb 编程判断输入的字符类型是什么
 
问题详情：判断是大写还是小写字母,是数字还是其他,要求用if语句回答：Private Sub mandButton1_Click() Dim myt As String Dim myret As String myt = Text1.Text ' asc(0)=4 asc(A)=65 , asc(a)= If Asc(myt) = And Asc(myt) = 123 Then myret = "小写" Else If Asc(myt) = 65 And Asc(myt) = 1 Then myret = "大写" Else If Asc(myt) = 4 And Asc(myt) = 5 Then myret = "数字" Else myret = "其他" End If End If End If Label1.caption = myret End Sub 供参考话题：输入一个字符,判断字符的种类(数字字符,大写字母,小
 
问题详情：输入一个字符,判断字符的种类(数字字符,大写字母,小写字母回答：#include stdio.h void main() { char c; printf("请输入一个字符\n"); c=getchar(); if(c='0'&&c='') printf("%c是数字字符\n",c); else if(c='A'&&c='Z') printf("%c是大写字母\n",c); else if(c='a'&&c='z') printf("%c是小写字母\n",c); else printf("%c是其他字符\n",c); }话题：判断输入的字符的类型回答：getchar() 是从键盘读入一个字符。
 
参考回答：上面的等价于 char ch;/*定义ch为字符型变量*/ch=getchar();/*再把得到的字符赋值给ch*/话题：本人写的一个判断输入字符类型的小程序
 
问题详情：#includestdio.hint main(){ char ch; ch=getchar(); switch(c回答：case后面要求是常量表达式,而你写的是带有变量,建议把switch改成if-else语句
 
参考回答：改为if else 语句话题：任意输入一个字符,用程序实现判断输入的字符是什么类型?回答：#includestdio.hvoid main(){ char ch; printf("please input a character:"); scanf("%c",&ch); if(ch='a' && ch='z') printf("%c是小写字母",ch); else if(ch='A' && ch='Z') printf("%c是大写字母",ch); else if(ch=4 && ch=5) printf("%c是数字",ch);}
 
参考回答：#includestdio.hmain(){ char c; printf("请输入一个字符:"); scanf("%c",&c); if('0'=c&&c='') printf("输入的字符是数字.\话题：要求判别键盘输入字符的类别.可以根据输入字符的ASCII码来回答：这个有函数可以利用的!isdigit()判断数字;isalpha()判断字母; 你再设置一下,用if语句去判定是否是大写或者小写!iscl()判断控制字符;
 
参考回答：如果是窗口应用程序,可以在窗口里面处理WM_KEYDOWN啊!

对于google中和csdn中没有正确严谨的vb6判断字符串中是否包含汉字，要么简单的判断是否asc()返回值小于0(这样只能判断是否为双字节的字符串，比如韩文、日文、中文、阿拉伯文，无法确定为中文)，难怪人家说我们vb6的都是初级新手用的。判断汉字的做法，都如此不严谨。
给出一个比较严谨的判断是否包含中文方法好了。希望日后有人搜索到，能够有帮助。
创建窗体，放一个按钮，默认名字，粘贴如下代码在代码页面。
 
Private Sub Command1_Click() Dim s1, s2, s3, s4 As String s1 = "中文" s2 = "ち" s3 = "English" s4 = "123" Dim result As String result = """" + s1 + """ " + IIf(IncludeChinese(s1), "包含汉字", "不包含汉字") result = result + vbCrLf + """" + s2 + """ " + IIf(IncludeChinese(s2), "包含汉字", "不包含汉字") result = result + vbCrLf + """" + s3 + """ " + IIf(IncludeChinese(s3), "包含汉字", "不包含汉字") result = result + vbCrLf + """" + s4 + """ " + IIf(IncludeChinese(s4), "包含汉字", "不包含汉字") MsgBox result End Sub '判断是否字符串中包含汉字 Public Function IncludeChinese(ByVal s As String) As Boolean '定义字节数组指向字符串 Dim data() As Byte data = s '临时变量，Integer长度为2，正好用来判断是否是汉字，因为汉字是双字节的 Dim t As Integer '定义循环变量 Dim i As Integer '汉字边界值 '因为直接写&H9FA5会认为成integer的负数，所以要写成字符串，进行转换 Dim lb, ub As Long lb = CLng("&H4E00") '汉字最小值 ub = CLng("&H9FA5") '循环判断，汉字的范围是4E00 ~ 9FA5 '因为我不太懂vb6的技巧写法，就用一个比较繁琐的写法做类型转换 For i = 0 To UBound(data) Step 2 t = CLng("&h" + Hex(data(i) + data(i + 1) * 255)) '连续的2个字节拼接为一个integer If t >= lb And t <= ub Then IncludeChinese = True '找到任何一个汉字则返回True Exit Function End If Next IncludeChinese = False '不包含汉字 End Function 
 
 
输出结果：
 
"中文" 包含汉字
"ち" 不包含汉字
"English" 不包含汉字
"123" 不包含汉字