将一个数转化为二进制数

将一个数转化为二进制数

例如将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

运行即可