易语言怎样判断编辑框里是否为数字
2个回答
展开全部
.版本 2
.子程序 文本_是否为数字, 逻辑型, 公开, 中间不能有空格,判断指定文本是否是数字
.参数 参_文本, 文本型
.局部变量 i, 整数型
.局部变量 Len, 整数型
.局部变量 asc, 整数型
Len = 取文本长度 (参_文本)
.如果真 (Len = 0)
返回 (假)
.如果真结束
.计次循环首 (Len, i)
asc = 取代码 (参_文本, i)
.判断开始 (asc < 48) ' a=97
返回 (假)
.判断 (asc > 57) ' z=122
返回 (假)
.默认
.判断结束
.计次循环尾 ()
返回 (真)
.子程序 文本_是否为数字, 逻辑型, 公开, 中间不能有空格,判断指定文本是否是数字
.参数 参_文本, 文本型
.局部变量 i, 整数型
.局部变量 Len, 整数型
.局部变量 asc, 整数型
Len = 取文本长度 (参_文本)
.如果真 (Len = 0)
返回 (假)
.如果真结束
.计次循环首 (Len, i)
asc = 取代码 (参_文本, i)
.判断开始 (asc < 48) ' a=97
返回 (假)
.判断 (asc > 57) ' z=122
返回 (假)
.默认
.判断结束
.计次循环尾 ()
返回 (真)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询