Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim yushu(1 To 2) As Integer
Dim i As Integer
a = 230
b = 16
i = 1
While a <> 0
yushu(i) = a Mod b
a = a \ b
i = i + 1
Wend
For i = 2 To 1 Step -1
Print yushu(i);
Next i
End Sub
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim yushu(1 To 2) As Integer
Dim i As Integer
a = 230
b = 16
i = 1
While a <> 0
yushu(i) = a Mod b
a = a \ b
i = i + 1
Wend
For i = 2 To 1 Step -1
Print yushu(i);
Next i
End Sub