|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ asc()
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
1190
人关注过本帖
标题:
asc()
取消只看楼主
加入收藏
in羊羊
等 级:
新手上路
帖 子:144
专家分:0
注 册:2005-4-17
楼主
收藏
问题点数:0 回复次数:1
asc()
e = Val(Text2.Text)
If e < Asc("0") Or e > Asc("9") Then
e = 0
k = MsgBox("学号中只能输入数字,不包含其他字符! ", vbExclamation)
'Text2.Text = ""
Exit Sub
End If
我是想判断输入的是否是字符串。asc()我查了只能判断第一个字符。
这里写0和9而不写字母会返回什么?
搜索更多相关主题的帖子:
asc
Asc
字符
数字
Val
2005-06-30 21:29
举报帖子
使用道具
赠送鲜花
in羊羊
等 级:
新手上路
帖 子:144
专家分:0
注 册:2005-4-17
第
2
楼
收藏
得分:0
呵呵我自己解决了
用了个函数
是这样的
If IsNumeric(Text2.Text) = False Then
'判断输入的是否都是数字
MsgBox "只能输入数字!", 48, "提示"
Exit Sub
End If
2005-07-01 18:28
举报帖子
使用道具
赠送鲜花
2
1/1页
1
快速回复:
asc()
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.021597 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved