vb.net判断为汉字 vba判断是否为汉字

vb 中怎样判断输入的字符是否是汉字

0ascii255

我来补充一下代码吧,在form中加入一个Text1

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub '如果是空字符串,就退出此过程

Dim a

a = Asc(Mid(Text1.Text, Len(Text1.Text), 1))

If a 255 Or a 0 Then MsgBox "刚才输入的是汉字" Else MsgBox "刚输入的是字符"

End Sub

这是靠ASCII码来判断的,你根据你的程序需要进行修改吧,这是对输入框约束输入的比较常用的方法之一,你可以去搜索一下英文字符ASCII码表.

相关问答

Q1: vb.net 如何统计一串文本的汉字和非汉字的数量？

用循环加MID函数，取出每一个字符，看它的ASCII码，0的是汉字，0的是非汉字。

Q2: vb中，如何判断一个字符串是汉字还是英文

你可以用mid截取单个字符并用ASCII码判断：

n=asc(mid(str1,i,1))

if n0 and n255 then

'英文字母

else

'中文

end if

整个字符串你可以循环判断。

这是一个比较粗糙的范围，更加精准的判断：33-126为可打印的（即可显示的）英文字符，97-122为英文字母（小写），你可以根据字符串的实际内容来采用判断依据；负数是汉字（其实是最高位为1，VB识别为负数，转换成16进制就可以看到正确的编码了）

Q3: vb.net怎么判断一个字符串中是否包含汉字

str = "hello,everybody. " 返回false，位置0。（不含汉字和汉语标点符号）

str = "hello,ererybody。 " 返回false，位置16。（最后一个句号是汉语标点符号）

先谢过大家了！

vb.net判断为汉字的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba判断是否为汉字、vb.net判断为汉字的信息别忘了在本站进行查找喔。