level 3
从高到低，说错了
我自己打出来的是倒叙就是想要一个顺序的代码
2020年05月16日 07点05分
2
level 13
Private Sub Command1_Click()
Dim a, b As Long
Dim l As Integer
a = Text1.Text
l = Len(Text1.Text)
Do While l > 0
b = (a \ (10 ^ (l - 1))) Mod 10
l = l - 1
Print b;
Loop
End Sub
2020年05月16日 11点05分
7
太谢谢了，谢谢大佬这么耐心的帮我解决问题
2020年05月16日 12点05分
