将23用二进制进行表示

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)

End Sub