编程四位数分解

如果是VB(两种方法):
Private Sub Command1_Click()
Dim n, a, b, c, d As Integer
n = Text1.Text
a = n \ 1000
b = n \ 100 Mod 10
c = n \ 10 Mod 10
d = n Mod 10
Print a, b, c, d

End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim a(3) As Integer
For i = 1 To 4
a(i - 1) = Mid(Text1.Text, i, 1)
Print a(i - 1)
Next
End Sub

在C中:
main()
{int a,b,c,d,i;
scanf("%d\n",&i);
a=i/1000;
b=i/100%10;
c=i/10%10;
d=i%10;
printf("%d,%d,%d,%d",a,b,c,d);
}

思路：
整除1000，千位
除1000求余，余数整除100，百位
除100求余，余数整除10，十位
除10求余，个位