任意数二进制转化

最新推荐文章于 2022-08-08 17:54:04 发布

lzybcd123

最新推荐文章于 2022-08-08 17:54:04 发布

阅读量232

点赞数

本文链接：https://blog.csdn.net/lzybcd123/article/details/51276386

版权

本文介绍了一个使用VBA编写的将十进制数转换为二进制字符串的函数。该函数通过循环除以2并记录余数的方式实现转换，并在过程中利用数组存储中间结果。此外，还提供了一个按钮点击事件的示例代码，用于调整字体大小并调用此二进制转换函数。

摘要由CSDN通过智能技术生成

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