dim x as integerx=inputbox("请输入正整数")
第一种具体是怎么操作
参考一下 zx001z 和 xjnzhidao 的答案:dim x as integeraaa:x=inputbox("请输入正整数")if not isnumeric(x) then goto aaa ‘确认是数字if val(x)int(val(x)) then goto aaa ‘确认是整数