有两种做法：
一种是输入后判断是否为正整数（可以用 Int后与原值比较来确定有没有小数），若否则出错重来。
另一种是直接在键入时就加以判断（可以用 MaskEdit控件，或者直接截获KeyDown事件）。追问
一种是输入后判断是否为正整数（可以用 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 ‘确认是整数
温馨提示：内容为网友见解，仅供参考
第1个回答 2012-04-27
dim x as integer
do
x=inputbox("请输入正整数")
loop while not isnumeric(x) or val(x)<0 or int(x)<>x
do
x=inputbox("请输入正整数")
loop while not isnumeric(x) or val(x)<0 or int(x)<>x
第2个回答 2012-04-27
dim x as integer
aaa:
x=inputbox("请输入正整数")
if x<>int(x) then goto aaa
aaa:
x=inputbox("请输入正整数")
if x<>int(x) then goto aaa
相似回答
