2016.4.28.2

Private Sub Command1_Click()
Me.Font.Size = 30
Print erjinzhi(230)
End Sub
Private Function erjinzhi(m As Byte) As String
  Dim n As Byte
  n = m
  Const er As Byte = 2
 
 Dim returns As String
 Dim shang As Byte
 Dim yushu(1 To 8) As Byte
 Dim i As Byte
 i = UBound(yushu)
 shang = n \ er
 yushu(i) = n Mod er
 returns = yushu(i)
 
 While shang <> 0
   i = i - 1
   n = shang
   shang = n \ er
   yushu(i) = n Mod er
   returns = yushu(i) & returns
 Wend
 erjinzhi = returns
End Function