二进制与十六进制

二进制

Private Sub Command1_Click()

 Print erjinzhi(25)

 EndSub

Private Function erjinzhi(m As Byte) AsString

               Dim n As Byte

               n = m

             Const er As Byte = 2

              Dim shang As Byte

                 Dim returns As String

                   Dim yushu(1 To 8) As Byte

                  Dim i As Byte

                  i = UBound(yushu)

                    shang = n \ er

                yushu(i) = n Mod er

              returns = yushu(i) & teturns

                While shang <> 0

               i = i - 1

               n = shang

               shang = n \ er

                 yushu(i) = n Mod er

            returns = yushu(i) & returns

             Wend

            erjinzhi = returns

             End Function

十六进制

Print shiliujinzhi(25)

 End Sub

PrivateFunction shiliujinzhi(m As Byte) As String

 

Dim n AsByte

n = m

Constshiliu As Byte = 16

Dimshang As Byte

Dimreturns As String

Dimyushu(1 To 8) As Byte

Dim i AsByte

i = UBound(yushu)

shang =n \ shiliu

yushu(i)= n Mod shiliu

returns= yushu(i) & teturns

Whileshang <> 0

i = i -1

n =shang

shang =n \ shiliu

yushu(i)= n Mod shiliu

returns= yushu(i) & returns

Wend

shiliujinzhi= returns

EndFunction