Question

如何用vb编一个程序:输入一个不多于5位的正整数,要求:1求出它是几位数2分别输出每一位

如何用vb编一个程序:输入一个不多于5位的正整数,要求:1求出它是几位数2分别输出每一位

Answer 1

Private Sub Command1_Click()
Dim wei()
wei = Array("个", "十", "百", "千", "万")
a = InputBox("输入一个不大于五位的整数")
Print "这是一个"; Len(a); "位数。"
For i = 1 To Len(a)
Print wei(i - 1); "位是："; Mid(a, Len(a) - i + 1, 1)
Next
End Sub

追问

你能用if条件句再帮我编一个吗？谢谢了！

追答

Private Sub Command1_Click()
Dim wei()
wei = Array("个", "十", "百", "千", "万")
a = InputBox("输入一个不大于五位的整数")
if a /10000>=1 then
Print "这是一个五位数。"
elseif a/1000>=1 then
Print "这是一个4位数。"
elseif a/100>=1 then
Print "这是一个3位数。"
elseif a/10>=1 then
Print "这是一个2位数。"

else
Print "这是一个1位数。"
endif

For i = 1 To Len(a)
Print wei(i - 1); "位是："; Mid(a, Len(a) - i + 1, 1)
Next
End Sub