Private Sub Command1_Click()
Me.Font.Size = 60
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 5) As Double
b = 23
i = 5
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i - 1
b = shang
shang = b \ a
yushu(i) = b Mod a
Wend
For i = 1 To 5
Print yushu(i);
Next
End Sub
Me.Font.Size = 60
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 5) As Double
b = 23
i = 5
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i - 1
b = shang
shang = b \ a
yushu(i) = b Mod a
Wend
For i = 1 To 5
Print yushu(i);
Next
End Sub