任一个数用二进制表示

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 = returns & yushu(i)
   While shang <> 0
       i = i - 1
       n = shang
       shang = n \ er
       yushu(i) = n Mod er
       returns = returns & yushu(i)
    Wend
    erjinzhi = returns

End Function