本示例通过Visual Basic Scripting Edition (VBScript) 展示了如何将十进制数转换为二进制表示。代码首先定义了一个变量来存储要转换的十进制数，然后使用循环和模运算逐步计算出每一位的二进制值，并最终打印出完整的二进制字符串。
Private Sub Command1_Click()
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i 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
Me.Font.Size = 20
Dim n As Byte
n = 23
Const er As Byte = 2
Dim shang As Byte
Dim yushu(1 To 5) As Byte
Dim i 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
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
