要求输入0-99999之间的一个数
判断输入的数是几位数
以下是我写的程序
请教如何用循环语句来实现判断的功能
Private Sub Command1_Click()
Dim x
x = InputBox("请输入一个0到99999之间的整数")
Text1.Text = "您输入的数字是" & Len(x) & "位数"
End Sub

Option Explicit

Private Sub Command1_Click()
Dim n As String
Dim Flags As String
Do
n = ""
n = InputBox("请输入一个0到99999之间的整数")
Print "您输入的数字是" & Len(n) & "位数"
Flags = InputBox("输入Yes结束", , "No")
If UCase(Flags) = "YES" Then Exit Do

Loop
End Sub

我的意思是:
用循环来判断一个整数的位数
不是循环进行多组整数的位数判断
比如用FOR I =1 TO 5
依次判断是否有5位
这样的程序应该怎么写?

仍然感谢楼上的热心帮助
从上面的程序里我学到了新的东西
谢谢

一句代码就实现了
为什么用循环呢？

Private Sub Command1_Click()
Dim x
dim i as integer
dim str as string

x = InputBox("请输入一个0到99999之间的整数")
'Text1.Text = "您输入的数字是" & Len(x) & "位数"
for i = 1 to Len(x)
str = str & Lift(x,i)
if len(str) = len(x) then

msgbox "你输入的是" & len(str) & "为数"

end if
next
End Sub

不知道这样写合不合你意，不过想不明白楼主的用意，呵呵

这个运行了得不到正确结果
程序显示有语法错误

Private Sub Command1_Click()
Dim x
dim i as integer
dim str as string

x = InputBox("请输入一个0到99999之间的整数")
'Text1.Text = "您输入的数字是" & Len(x) & "位数"
for i = 1 to Len(x)
str = str & Left(x,i)
if len(str) = len(x) then

msgbox "你输入的是" & len(str) & "为数"

end if
next
End Sub

不好意思，打错了

不是这里，这个地方我运行的时候已经修改过了
提示仍然有语法错误

Dim x As Long
Dim l As Long
Dim m As Integer
m = 0
Do
x = Val(InputBox("请输入一个0到99999之间的整数"))
Loop Until x > 0 And x < 99999
Do
l = x \ 10 ^ m
m = m + 1
Loop Until l > 0 And l < 10
Print "这是个" & CStr(m) & "位数"

我先研究看看
谢谢啊
[url=http://wpa.qq.com/msgrd?V=1&Uin=12471737&Site=www.bbs.bc-cn.net&Menu=yes]点击这里给我发消息[/url]