将23转化为二进制数

Private Sub Command1_Click()
   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