坚持

Private Sub Command1_Click()

   Me.Font.Size = 70

   'Print Hex(230)

   Dim a As Integer

   Dim b As Integer

   Dim s As String

   Dim yushu As Byte

    a= 1230: b = 16

   While a <> 0

      yushu = a Mod b

      If yushu < 10 Then

          s = yushu & s

      Else

          s = yushu ' & s

      End If

      a = a \ b '0

   Wend

   Print s

          

End Sub

 Private Function f(yushu As Byte) As String

   If yushu <= 9 Then

       f = yushu

   Else

       f = Chr(yushu + 55)

   End If

End Function

 EndFunction