二进制

Private Sub Command1_Click()

Me.Font.Size = 70

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

 

     

Private Sub Command1_Click()

Print erjinzhi(230)

End Sub

Private Function erjinzhi(m As Byte) AsString

Dim n As Byte

n = m

Const er As Byte = 2

Dim shang As Byte

Dim yushu(1 To 8) As Byte

Dim i As Byte

i = 8

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); yushu(6); yushu(7); yushu(8)

End Function

Private Sub Command2_Click()

Me.Font.Size = 60

Dim n As Byte

n = 23

Const er As Byte = 2

Dim s As String

Dim shang As Byte

Dim yushu(1 To 5) As Byte

Dim i As Byte

i = 1

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(5); yushu(4); yushu(3);yushu(2); yushu(1);

End Sub