作业4

Private Sub Command1_Click()

   Me.Font.Size = 60

   Print erjinzhi(230)

End Sub

 

Private Function erjinzhi(m As Byte) AsString

   Dim n As Byte

    n= m

   Const er As Byte = 2

   Dim returnS As String

   Dim shang As Byte

   Dim yushu(1 To 8) As Byte

   Dim i As Byte

    i= UBound(yushu)

   shang = n \ er '11

   yushu(i) = n Mod er '1

   returnS = yushu(i)

   While shang <> 0

    i= i - 1

    n= shang '11 5 2 1

   shang = n \ er '5 2 1 0

   yushu(i) = n Mod er '1 1 0 1

   returnS = yushu(i) & returnS

Wend

   erjinzhi = returnS

End Function