任意数二进制转化

Private Sub Command1_Click()
 Me.Font.Size = 20
 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 = yushu(i) & returnS
   Wend
   enjinzhi = returnS
   
   
   
   
   
   
   
   

End Function