Re: [VB6 ] val( inputbox("...") )
※ 引述《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
討論串 (同標題文章)