vb中如何限制inputbox只能输入正整数 代码如下

Question

dim x as integer
x=inputbox("请输入正整数")

Answer 1

有两种做法：
一种是输入后判断是否为正整数（可以用 Int后与原值比较来确定有没有小数），若否则出错重来。
另一种是直接在键入时就加以判断（可以用 MaskEdit控件，或者直接截获KeyDown事件）。

追问

第一种具体是怎么操作

追答

参考一下 zx001z 和 xjnzhidao 的答案：
dim x as integer
aaa:
x=inputbox("请输入正整数")
if not isnumeric(x) then goto aaa ‘确认是数字
if val(x)int(val(x)) then goto aaa ‘确认是整数

Answer 2

dim x as integer
do
x=inputbox("请输入正整数")
loop while not isnumeric(x) or val(x)<0 or int(x)<>x

Answer 3

dim x as integer
aaa:
x=inputbox("请输入正整数")
if x<>int(x) then goto aaa