将十进制数23转化为二进制数

最新推荐文章于 2018-07-25 23:56:57 发布

原创最新推荐文章于 2018-07-25 23:56:57 发布 · 3.7k 阅读

0 ·

CC 4.0 BY-SA版权

本文提供了一个使用VBA编写的简单程序示例，该程序将十进制数转换为二进制数。通过定义变量并使用循环结构，程序逐步计算出每个二进制位，并最终打印出完整的二进制字符串。

Private Sub Command1_Click()
Me.Font.Size = 35
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
i = 5
shang = n \ er
yushu(i) = n Mod er
While shang <> 0
i = i - 1
n = shang
shang = n \ er
yushu(i) = n Mod er
Wend

Print yushu(1) & yushu(2) & yushu(3) & yushu(4) & yushu(5)

End Sub