Dim 数 As Integer = 15, 数位(9) As Integer, 位 As Integer = 0
Do
数位(位) = 数 Mod 10
位 += 1
数 /= 10
Loop While (数 > 0)



------解决思路----------------------
VB的 / 和C#不同,VB的整除运算符是 \ 。
------解决思路----------------------
+= /=运算符是了解一门语言的基础
Dim 数 As Integer = 15, 数位(9) As Integer, 位 As Integer = 0
Do
数位(位) = 数 Mod 10
位 += 1
数 /= 10
Loop While (数 > 0)