几进制的转换

Private Sub Command1_Click()
Me.Font.Size = 60

Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte

a = 230: b = 2

While a <> 0
  yushu = a Mod b
  s = yushu & s
  a = a \ b
Wend
Print s

End Sub