A=inputbox("请输入数据A=","输入框“)
=...............................if isIsNumeric(A) then
label1.caption=A
label2.caption=B
............
end if
=...............................if isIsNumeric(A) then
label1.caption=A
label2.caption=B
............
end if
on error resume next
A=inputbox("请输入数据A=","输入框“)
=...............................if isIsNumeric(A) then
label1.caption=A
label2.caption=B
............
end if
on error resume next
A=inputbox("请输入数据A=","输入框“)
=...............................if isIsNumeric(A) then
label1.caption=A
label2.caption=B
............
end if
dim s as string
s=inputbox("请输入数据A=","输入框“)
=...............................if IsNumeric(s) then
a=csng(s)
label1.caption=A
label2.caption=B
............
end if
方法二、直到输入内容为止,如
a=inputbox("请输入数据A=","输入框")
do while a=""
a=inputbox("请重新输入数据A=","输入框")
loop