已有23人关注
在SELECT CASE语句中插入语句的问题
发表在VB答疑区 2010-04-26
是否精华
版块置顶:
我用SELECT CASE语句做数字大小的判断,在对话框输入数字判断是正常的

如果对话框空白直接按计算,程序运行就提示错误了。


我是想加一个语句,在没输入数字的情况下,点计算,在LABEL里会提示“请输入数值!”

请问要怎么实现???

dim a as integer

a=text1.text

select case a

case is 
...

...

...

....

end sub
分享到:
精彩评论 3
vbsoldier
学分:0 LV1
2010-04-26
沙发
您好,使用Val函数将字符串转换为数值,当字符串为空时转换为0。

例如,a=Val(text1.text)
cdwe680i
学分:0 LV1
TA的每日心情
奋斗
2024-06-18 09:22:24
2010-04-26
板凳
这个我懂,只是我想让他输出的是字符串类型“请输入数值!”这五个字。

而不是转换为0啊
学分: LV1
2010-04-26
地板
您好:
转换成0 就 
a=Val(text1.text)
select case a
case 0
label1.caption="请输入数值!"
……
end select
首页上一页 1 下一页尾页 3 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照