推荐回答
PrivateSubText1_KeyPressKeyAsciiAsIntegerIfKeyAscii>=48AndKeyAscii<=57Then''数字0到9的ascii值为48到57ElseKeyAscii=0''表示输入如果不数字则为NULL即空MsgBox"请输入数字:",vbExclamation''vbexclamation表示警告图标，可有可无EndIfEndSub我的方法和您的方法不一样希望同样对你有所帮助...不懂的地方可以互相探讨..。
齐文艺2019-12-21 20:55:15
提示您：回答为网友贡献，仅供参考。
其他回答
-
判断是否为数字或字符PrivateSubCommand1_ClickIfIsNumericText1.tex1=TrueThenMsgBox"数字"ElseMsgBox"字符"EndIfEndSub。
齐景波2019-12-21 20:37:55
-
数字、字母占1个，符号分为半/全输入，半输入是1个，全输入是2个拓展：中国汉字占两个。
齐敦苏2019-12-21 20:20:18
-
,首先我要确定你说的数字是字符型数字.字符占字节与编码方式,全角/半角及你电脑操作系统有关,VB6中有个函数LenB可以测试表达式存储长度,另一个函数Len是测试字数.Unicode码系统中每个数字,字母,汉字均占两个字节.ANSI码系统中数字与字母占一个字节,汉字占两个字节。
龙宏辉2019-12-21 20:06:30