高手们，动动脑筋——编程

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:16:04
我想编写个程序，大致算法如下：
1，输入一个数
2，将这个数分解
3，输出其各个位数的数字
（例如:输入 1234
则输出1，2，3，4

Dim str As String, i As Integer, stryou(100) As Integer

Private Sub Command1_Click()
str = InputBox("")
For i = 1 To Len(str)
stryou(i) = Val(Mid(str, i, 1))
Form1.Print stryou(i),
Next
End Sub

'不知道你需要在什么地方输出，这里是在窗体上直接输出

你要的程序来了,自己特意为你写的,已经验证OK!!!

Private Sub Command1_Click()
Dim str As String
Dim arr(1 To 20) As String
Dim i As Integer
str = InputBox("请输入一个数:", "输入提示")
For i = 1 To Len(str)
arr(i) = Mid(str, i, 1)
Next
For i = 1 To Len(str)
Text1.Text = Text1.Text & arr(i) & ","
Next
End Sub

你在窗体上添加一个文本框并把文本框清空,再添加一个按钮,把代码复制进去看结果吧!!!