1、算法說明

1)        十進制正整數m轉換為R（2－16）進制的字符串。
         思路： 將m不斷除r取余數，直到商為0，將余數反序即得到結果。
         算法實現：
Private Function Tran(ByVal m As Integer, ByVal r As Integer) As String
    Dim StrDtoR As String, n As Integer
    Do While m <> o
        n = m Mod r
        m = m \ r
        If n > 9 Then
            StrDtoR = Chr(65 + n - 10) & StrDtoR
        Else
            StrDtoR = n & StrDtoR
        End If
    Loop
    Tran = StrDtoR
End Function  
2)        R（2－16）進制字符串轉換為十進制正整數。
         思路：R進制數每位數字乘以權值之和即為十進制數。
         算法實現：
Private Function Tran(ByVal s As String, ByVal r As Integer) As integer
    Dim n As Integer, dec As Integer
    s = UCase(Trim(s))
    For i% = 1 To Len(s)
               If Mid(s, i, 1) >= "A" Then
                        n = Asc(Mid(s, i, 1)) - Asc("A") + 10
               Else
                        n = Val(Mid(s, i, 1))
               End If
               dec = dec + n * r ^ (Len(s) - i)
    Next i
    Tran = dec
End Function 

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目