二进制
来源：互联网 发布：mba加油站 知乎 mpacc 编辑：程序博客网 时间：2024/05/21 07:13
Private Sub Command1_Click()
Me.Font.Size = 20
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 8) As Integer
b = 251
i = 1
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i + 1
b = shang
yushu(i) = b Mod a
shang = b \ a
Wend
For i = UBound(yushu) To 1 Step -1
Print yushu(i);
Next
End Sub
Me.Font.Size = 20
Dim i As Integer
Dim b As Integer
Const a As Integer = 2
Dim shang As Integer
Dim yushu(1 To 8) As Integer
b = 251
i = 1
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i + 1
b = shang
yushu(i) = b Mod a
shang = b \ a
Wend
For i = UBound(yushu) To 1 Step -1
Print yushu(i);
Next
End Sub
0 0
