16进制

Private SubCommand1_Click()

 Me.Font.Size = 70

 

 Dim a As Integer

 Dim b As Integer

 Dim s As String

 Dim yushu As Integer

 a = 1230: b = 16

 While a <> 0

    yushu = a Mod b

    s = f(yushu) & s

    a = a \ b

   

 Wend

 

 Print s

End Sub

Private Functionf(yushu As Integer)

 If yushu <= 9 Then

    f = yushu

 Else

    Select Case yushu

    Case 10

        f = "A"

    Case 11

        f = "B"

    Case 12

        f = "C"

    Case 13

        f = "D"

    Case 14

        f = "E"

    Case 15

        f = "F"

    End Select

 End If

End Function

 

 

 

 

 

 

 

Private Sub Command1_Click()

 Me.Font.Size =70

 

 Dim a AsInteger

 Dim b AsInteger

 Dim s As String

 Dim yushu AsInteger

 a = 1230: b =16

 While a<> 0

    yushu = aMod b

    s = f(yushu)& s

    a = a \ b

   

 Wend

 

 Print s

End Sub

Private Function f(yushu As Integer)

 If yushu <=9 Then

    f = yushu

 Else

    Select Caseyushu

        Case 10,11, 12, 13, 14, 15

            f =Chr(yushu + 55)

            EndSelec End If

^{Private SubCommand1_Click()}

 ^{Me.Font.Size = 70}

 

 ^{Dim a As Integer}

 ^{Dim b As Integer}

 ^{Dim s As String}

 ^{Dim yushu As Integer}

 ^{a = 1230: b = 16}

 ^{While a <> 0}

    ^{yushu = a Mod b}

    ^{s = f(yushu) & s}

    ^{a = a \ b}

   

 ^Wend

 

 ^{Print s}

^{End Sub}

^{PrivateFunction f(yushu As Integer)}

 ^{If yushu <= 9 Then}

    ^{f = yushu}

 ^Else

    ^{f = Chr(yushu + 55)}

 ^{End If}

^{End Function}