255以内的数转换成二进制

最新推荐文章于 2023-05-15 17:08:50 发布

yhj1253084621

最新推荐文章于 2023-05-15 17:08:50 发布

阅读量3.9k

点赞数

本文链接：https://blog.csdn.net/yhj1253084621/article/details/51275735

版权

Private Sub Command1_Click()
Me.Font.Size = 60
Print erjianzhi(230)
End Sub
Private Function erjianzhi(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
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
returns = yushu(i) & returns
Wend
Print returns

End Function