VB整除\和取余MOD练习!

'把这段代码复制到程序里好了
dim a as long
dim s,i,j,m,n,p as integer
1
a=val(inputbox("请输入数字!"))
s=len(a)
if s<>5 then
msgbox("请重新输入")
a=0
goto 1
else
i=a\10000 '第5位
j=(a Mod 10000) \ 1000 '第4位
m=(a Mod 1000) \ 100 '第3位
n=(a Mod 100) \ 10 '第2位
p=a Mod 10 '第1位
print i,j,m,n,p
end if

Option Explicit

Private Sub Command1_Click()
Dim a As Integer
a = 12345
Print a \ 10000 '= 1
Print (a Mod 10000) \ 1000 '= 2
Print (a Mod 1000) \ 100 ' = 3
Print (a Mod 100) \ 10 ' =4
Print a Mod 10 '= 5
End Sub

Private Sub Command1_Click()
Dim S As Long, I As Long, J(1 To 5) As Long

S = 10345
For I = 5 To 1 Step -1
J(I) = S \ 10 ^ (I - 1)
S = S Mod 10 ^ (I - 1)
Next
'数组 J(1