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

答案:3 悬赏:50 手机版

解决时间 2021-11-30 16:49

提问者网友：無理詩人
2021-11-30 06:01

最佳答案

五星知识达人网友：妄饮晩冬酒
2021-11-30 07:37

这个是判断几位数的

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

全部回答

1楼网友：孤独入客枕
2021-11-30 09:43

n是输入的数

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

print i

2楼网友：忘川信使
2021-11-30 08:48

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

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息