Option Base 1
Private Sub Command1_Click()
Cls
Font.Size = 50
Dim shang As Byte, n As String
Dim yushu(5) As Byte
n = 23
shang = 23
i = 5
While shang <> 0
shang = shang \ 2
yushu(i) = shang Mod 2
i = i - 1
Wend
Print yushu(5) & yushu(4) & yushu(3) & yushu(2) & yushu(1)
Private Sub Command1_Click()
Cls
Font.Size = 50
Dim shang As Byte, n As String
Dim yushu(5) As Byte
n = 23
shang = 23
i = 5
While shang <> 0
shang = shang \ 2
yushu(i) = shang Mod 2
i = i - 1
Wend
Print yushu(5) & yushu(4) & yushu(3) & yushu(2) & yushu(1)
End Sub