将一个数转化为二进制数

将一个数转化为二进制数

例如将230转换为二进制

建立一个command 在command中输入以下内容

Private Sub Command1_Click()
    Me.Font.Size = 60
    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
    erjinzhi = returns
End Function


运行即可