UC知道在vb中判断中文的问题
来源：百度知道 编辑：UC知道 时间：2024/07/03 09:54:11
刚刚接触vb，想用它编个小东西，可惜卡住了。。。。
我要编的是：
打开后要求输入姓名，姓名要是中文的，如果不是中文就显示“错误”，是中文就显示“正确”。
求各为强人指点迷津！请写详细点！
别只告诉我怎么做啊~~我新手。。帮我些出来咯。。
大哥们看看这个对么?
Dim name,msg
msg="请输入你的名字:"
a=Inputbox(msg,"你名字")
for i=1 to len(a)
name=asc(mid(a,i,1))
if (name)<0 then
msgbox"正确"
else
msgbox"错误"
end if
next
我要编的是：
打开后要求输入姓名，姓名要是中文的，如果不是中文就显示“错误”，是中文就显示“正确”。
求各为强人指点迷津！请写详细点！
别只告诉我怎么做啊~~我新手。。帮我些出来咯。。
大哥们看看这个对么?
Dim name,msg
msg="请输入你的名字:"
a=Inputbox(msg,"你名字")
for i=1 to len(a)
name=asc(mid(a,i,1))
if (name)<0 then
msgbox"正确"
else
msgbox"错误"
end if
next
你这程序是正确的，但是
1。程序有些地方可以精简
2。判断一次就要弹一次对话，比如输入“我是中国人”就要弹5次对话。
现改成了，只弹一次对话框。
Dim name, yyy
yyy = True
a = InputBox("请输入你的名字:", "你名字")
For i = 1 To Len(a)
name = Asc(Mid(a, i, 1))
If (name) >= 0 Then yyy = False
Next
If yyy Then
MsgBox "正确"
Else
MsgBox "错误"
End If
用asc(字符串)语句，
中文的值都为负。
不需要用循环来判断的
Dim name, msg
msg = "请输入你的名字:"
a = InputBox(msg, "你名字")
'这样判断
If LenB(a) = Len(StrConv(a, 128)) * 2 Then
MsgBox "正确"
Else
MsgBox "错误"
End If