简单问题。vb中如何判断文本框输入的是数字还是中文？

Question

IsNumeric(expression)必要的 expression 参数是一个 Variant，包含数值表达式或字符串表达式。说明如果整个 expression 的运算结果为数字，则 IsNumeric 返回 True；否则返回 False。
本示例使用 IsNumeric 函数判断变量的值是否可为数值。Dim MyVar, MyCheck
MyVar = "53"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "459.95"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。MyVar = "45 Help"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 False。

Answer 1

判断中文:判断一个字符是否中文方法一：
Asc(Mid(StrKey, II, 1)) < 0 
方法二：
Len(StrTemp) < LenB(StrConv(StrTemp, vbFromUnicode))不过中西混排，只能一个个字符的判断