我用SELECT CASE语句做数字大小的判断,在对话框输入数字判断是正常的
如果对话框空白直接按计算,程序运行就提示错误了。
我是想加一个语句,在没输入数字的情况下,点计算,在LABEL里会提示“请输入数值!”
请问要怎么实现???
dim a as integer
a=text1.text
select case a
case is
...
...
...
....
end sub
vbsoldier
学分:0 LV1
您好,使用Val函数将字符串转换为数值,当字符串为空时转换为0。
例如,a=Val(text1.text)
cdwe680i
学分:0 LV1
TA的每日心情
2024-06-18 09:22:24
这个我懂,只是我想让他输出的是字符串类型“请输入数值!”这五个字。
而不是转换为0啊
学分: LV1
您好:
转换成0 就
a=Val(text1.text)
select case a
case 0
label1.caption="请输入数值!"
……
end select