作者albb0920 (么柏)
看板Visual_Basic
标题Re: [VB6 ] val( inputbox("...") )
时间Wed Apr 30 21:25:58 2008
※ 引述《terrytain (想得失忆症)》之铭言：
: 各位大大
: 我想利用Inputbox来输入一个整数
: 如果不小心输入小数点时 VB可以自动判别并要求重新输入
: 但是我目前做不出来
: 以下是我的程式部份
: Dim a as integer
: a = val( Inputbox("随便输入一个数字") )
: print a
: 当我输入数字时 可以输入小数点
: 而且VB会自动帮我四舍五入 然後再把 a 印出来
: 恳请解答
Dim a As Single
Geta:
a = Val(InputBox("随便输入一个数字"))
If CInt(a) <> a Then MsgBox ("输入错误"): GoTo Geta
Print a
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.26.28