怎么判断输入的是文字还是数字?谢谢

判断数字有个函数isnumeric使用方法aaa="bbb"if not isnumeric(aaa) thenmsgbox "不是数字"end if判断中文字符就不清楚了~~~~

关键的就是 不知道将要输入什么?知道了就简单了 谢谢小猫

判断ASCII码，具体的起始位置不是很清楚，但是判断ASCII码应该可以实在不行就用排除法：排除数字，排除字母。排除特殊字符，然后一般不就是汉字了么~~~

小猫咪用的 isnumeric 其实就可解决问题, 除了数字其它的不就是文字了吗?我用另种方法, 你试看看.加 Command1 Text1Dim tlen As Integer, clen As Integer, nlen As Integer, elen As Integer, slen As Integer, ascval As Integer, aa As StringPrivate Sub Command1_Click() clen = 0 '中文字数 elen = 0 '英文字数 nlen = 0 '数字字数 slen = 0 '空格字数 aa = Trim(Text1.Text) For i = 1 To Len(aa) ascval = Asc(Mid(aa, i, 1)) ' 取得第 I 个字符组的字符码 Select Case ascval Case 32 '空格 slen = slen + 1 Case 48 To 57 '数字 nlen = nlen + 1 Case 0 To 127 '英文或其它符号 elen = elen + 1 Case Else '中文 clen = clen + 1 End Select Next i tlen = slen + nlen + elen + clen * 2 aa = "总字数:" & Str(tlen) & "位" & vbCrLf aa = aa & "中文字:" & Str(clen) & "位 X 2" & vbCrLf aa = aa & "英文字:" & Str(elen) & "位" & vbCrLf aa = aa & "数 字:" & Str(nlen) & "位" & vbCrLf aa = aa & "空 格:" & Str(slen) & "位" MsgBox aaEnd Sub

老师的太经典了，真的太经典了，收藏收藏~~~~~

谢谢 测试一下

cbm666 :请您注意啦!要是全角符号怎么办呢？你总说VB吧现成有帖子，没错，那就是InputStr = "汉" If Asc(InputStr) < 0 Then gbascii = AscB(StrConv(InputStr, vbFromUnicode)) '区位码在16区之后的为汉字 If gbascii - 160 > 15 Then Print "是汉字" Else Print "是全角符号" End If Else Print "是半角英文或数字" End If http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=26309608&z=3609552&pn=0&rn=50&lm=0&word=vb#26309608

谢谢 webird，一般用法我是没去考虑那么多.你说的这个我倒是有点心得,因我最近在做语音字库汉字具体区间如下:'B0A1-F7FE 45217-63486'16区位01-94 ---- 87区位01-94

也因为还有许多其它的值, 所以我 5F 的帖,把一般在用的放在 Select Case 的前面, 中文或其它我把它们摆在 case else 我想楼主的目的应该是达到了.只是我的 Case else 后面的注解应该是 "中文或其它...."

请问怎样在VB中插入GIF格式的图片么？？谢谢~~`

GIF 有很多是背景透明的图片,所以你可以用 Image控件,Picture背景无法透明.Image1.picture=Loadpicture("c:\test.gif")