用vb编程 分离一个五位数 例如12345 可以用取整、取余、或者10^n 这样的方法 得出1、2、3、4、5

用vb编程 分离一个五位数 例如12345 可以用取整、取余、或者10^n 这样的方法 得出1、2、3、4、5

Private Sub Form_Load()
a = "12345"
For i = 1 To Len(a)
MsgBox Mid(a, i, 1)
Next
End Sub追问是输入一个五位数 ，然后将他们分离。 比如12345，输出的结果是1,2,3,4,5 上面这个代码 不对。。追答Private Sub Command1_Click()
a = InputBox("请输入一个五位数")
s = ""
For i = 1 To Len(a)
s = s & Mid(a, i, 1) & ","
Next
s = Mid(s, 1, Len(s) - 1)
Print s
End Sub

lkj

Private Sub Command1_Click()
Dim a(5) As Integer
n = 12345
For i = 1 To 5
a(i) = n \ 10 ^ (5 - i)
n = n Mod 10 ^ (5 - i)
Print a(i);
Next i
End Sub

private sub Form_Click()
a=InputBox("输入一个五位数")
a1=a \10000
a=a-a1*10000
a2=a \1000
a=a-a2*1000
a3=a \ 100
a=a-a3*100
a4=a \10
a5=a-a4*10
print a1,a2, a3,a4,a5
End Sub
注意："\" 不是 "/"

设这个五位数为N
先执行N%10分离出最后一位
再执行N/10去掉最后一位
依次循环，直到N/10=0

我们知道，小学刚开始学除法的时候，数学老师会写出如下式子：
13 ÷ 5 = 2……3
老师解释说，其中2叫做商，3叫做余数

基本技巧，是使用VB的两个运算符号：
1， \ 运算符，获得整除的商，忽略余数部分
例如：13 \ 5 = 2
1， Mod 运算符，获得余数，忽略商部分
例如：13 Mod 5 = 3

利用以上2个运算符，可以得到一些特殊而有趣的结果：
12345 \ 10000 = 1
12345 \ 1000 = 12
12345 \ 100 = 123
12345 \ 10 = 1234
12345 mod 10000 = 2345
12345 mod 1000 = 345
12345 mod 100 = 45
12345 mod 10 = 5
利用举例：
Private Sub Command1_Click()
Dim n As Integer
n = 12345
Dim i As Integer
For i = 1 To 4
Print n Mod 10
n = n \ 10
Next i
Print n
End Sub追问如果说 随意输入五位数 怎么分离？追答我这个最后这个例子的代码就是任意5位数都能分离的呀？？？
不过你把数据类型改一下，改成Long
Private Sub Command1_Click()
Dim n As Long
n = Val(InputBox("请输入一个五位数！"))
Dim i As Long
For i = 1 To 4
Print n Mod 10
n = n \ 10
Next i
Print n
End Sub