怎么用VB做四位数的数字分解?就是给一个四位数如“1234”,就会分解成“1234的千位数是1”然后依次出来每一步的编写!

Question

怎么用VB做四位数的数字分解?
就是给一个四位数如“1234”,就会分解成“1234的千位数是1”然后依次出来 每一步的编写!

Answer 1

Private Sub Command1_Click()
Dim N As Integer
N = Val(InputBox("请输入一个4位正整数:"))
If N > 9999 Or N < 1000 Then Print "出错":Exit Sub
Print N & "的千位数字是:" & N \ 1000 1234 \1000得1
Print N & "的百位数字是:" & N \ 100 Mod 10 1234 \100得12 ,再用10求余数,余2
Print N & "的十位数字是:" & N \ 10 Mod 10 1234 \10得123 ,再用10求余数,余3
Print N & "的个位数字是:" & N Mod 10 1234 Mod 10 用10求余数,余4
End Sub