怎么校验邮政编码? 判断数字长度判断是数字用keypress事件判断输入的字符的ASCII码,必须在数字范围之间就可以了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 邮政编码是6位数字,第一位不能是0len(textbox.text)可以知道长度可以用mid$函数取得没一个字符,看它的ASII码在不在数字的范围内 邮政编码是6位数字,第一位不能是0len(textbox.text)可以知道长度可以用mid$函数取得每一个字符,看它的ASII码在不在数字的范围内 Asc函数的参数是一个字符串,返回的是该字符串第一个字符的Ascii码值 在LOSTFOCUS中写for i =1 to len(text1.value) a=mid(text1.value,i,1) if asc(a)>57 or asc(a)<48 then text1.text="" text1.setfocus i=len(text1.value)+1 end ifnext i 要检证是不是数字可以用: IsNumeric(输入数),若为数则返回True,否则返回False 例如:你用控件Text(名为Text1)为用户提供输入,那么就用IsNumeric(Text1.text)即可。要知道数字的长度的话可以用: Len(输入数),将会返回一个Integer类型的数字,它就是输入数的长度。 例如:类似上面,用Len(Text1.text)即可。至于简不简单的话,我觉得这是再简单不过的了 lingpeng(凌鹏) 的比较简单。还可以比较这个数字是否在100000与999999之间thanks 函数 实时错误80040e21 odbc 驱动程序不支持所需的属性 求mschart 动态显示曲线的程序!谢谢 EnumWindows枚举窗口API中回调应用疑问 VB打包、压缩。。。。。? api函数——视频 关于数据库与SQL 一个不大不小的问题!让我好烦! 如何实现Win7桌面阴影字体 我有一个超级奇怪的问题!!!!! ___________________________关于VB的DLL问题)_______________________________ 有谁在windows2000高级服务器版本上建立过 mail邮局
for i =1 to len(text1.value)
a=mid(text1.value,i,1)
if asc(a)>57 or asc(a)<48 then
text1.text=""
text1.setfocus
i=len(text1.value)+1
end if
next i
IsNumeric(输入数),若为数则返回True,否则返回False
例如:你用控件Text(名为Text1)为用户提供输入,那么就用IsNumeric(Text1.text)即可。
要知道数字的长度的话可以用:
Len(输入数),将会返回一个Integer类型的数字,它就是输入数的长度。
例如:类似上面,用Len(Text1.text)即可。
至于简不简单的话,我觉得这是再简单不过的了
还可以比较这个数字是否在100000与999999之间
thanks