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

Question

如题所述

Answer 1

我们知道，小学刚开始学除法的时候，数学老师会写出如下式子：
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