vb有一个5位数的数字n,如何提取出各个位数好像是用 MOD / \之类的做.我不太懂.用a b c d e 分别表示个十百千万如输入12345.则a=5 b=4 c=3 d=2 e=1

vb有一个5位数的数字n,如何提取出各个位数好像是用 MOD / \之类的做.我不太懂.用a b c d e 分别表示个十百千万如输入12345.则a=5 b=4 c=3 d=2 e=1
vb有一个5位数的数字n,如何提取出各个位数
好像是用 MOD / \之类的做.我不太懂.
用a b c d e 分别表示个十百千万
如输入12345.则a=5 b=4 c=3 d=2 e=1

vb有一个5位数的数字n,如何提取出各个位数好像是用 MOD / \之类的做.我不太懂.用a b c d e 分别表示个十百千万如输入12345.则a=5 b=4 c=3 d=2 e=1
方法多种,介绍几种简单的
‘一
Private Sub Form_Load()
Dim num As Long,str As String
num = 12345
str = CStr(num) '将长整型转为字符串
MsgBox Mid(str,1,1) 'mid是从字符串里取出字符,第一个参数是从哪个字符串中取,第二个参数是取出的位置,第三个是取出的个数,例如：(str,1,1) 是 1,(str,2,1) 是 2 ,(str,1,2) 是 12
End Sub
’二
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num - a * 10000
b = num \ 1000
num = num - b * 1000
c = num \ 100
num = num - c * 100
d = num \ 10
num = num - d * 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Sub
'三 mod
Private Sub Form_Load()
Dim a As Long,b As Long,c As Long,d As Long,e As Long,num As Long
num = 12345
a = num \ 10000
num = num Mod 10000
b = num \ 1000
num = num Mod 1000
c = num \ 100
num = num Mod 100
d = num \ 10
num = num Mod 10
e = num
MsgBox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e
End Sub