vb编程中 如何使输入 input的数满足一定条件
vb编程中 如何使输入 input的数满足一定条件
日期:2009-03-25 01:43:55 人气:1
哈哈,再改造一下二楼的:
Private Sub Command1_Click()
Dim a as integer ,st as string
Do
st = InputBox("input number between 0 and 10")
if not IsNumeric(st) then exit sub
a = val(st)
if a 10 then exit sub
Loop
MsgBox "the number is : "