把23转化为2进制

Private Sub Command1_Click()

Me.FontSize = 24

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