任意输入一个0到9999之间的整数,判断是几位数

这个是判断几位数的

dim i as integer
i = inputbox("请输入一个在0到9999之间的数","请输入")
if i > 9999 or i < 0 then
msgbox "数字无效!"
elseif i >= 1000 then
msgbox "数字是 4 位数！"
elseif i >= 100 then
msgbox "数字是 3 位数！"
elseif i >= 10 then
msgbox "数字是 2 位数！"
elseif i >= 0 then
msgbox "数字是 1 位数！"
end if

以上顺序不能颠倒 否则会逻辑出错

判断是不是整数

dim i as string
i = inputbox("请输入一个在0到9999之间的数","请输入")
if instr(i, ".") = 0 then
msgbox "这个数是整数！"
else
msgbox "这个数不是整数"
end if

dim i as integer
i = inputbox("input","number: 0 to 9999")
if i > 9999 or i < 0 then
msgbox "数字无效!"
elseif i >= 1000 then
msgbox "数字是 4 位数！"
elseif i >= 100 then
msgbox "数字是 3 位数！"
elseif i >= 10 then
msgbox "数字是 2 位数！"
elseif i >= 0 then
msgbox "数字是 1 位数！"
end if

以上顺序不能颠倒 否则会逻辑出错

n是输入的数

for i=1 to 4 do
if n div 10 = 0 then
exit
else
n = n div 10
end if
next

print i