vbnet_36进制数相加

    ''' <summary>
    ''' 用0-9A-Z表示的两个36进制数相加，返回36进制结果字符串
    ''' </summary>
    ''' <param name="num1"></param>
    ''' <param name="num2"></param>
    ''' <returns></returns>
    Private Function add36HEX(ByVal num1 As String, ByVal num2 As String) As String
        Dim type As Int16 = 36  '指定36进制
        Dim b1 = (StrReverse(num1.ToUpper)).ToArray
        Dim b2 = (StrReverse(num2.ToUpper)).ToArray
        Dim maxn As Integer = {b1.Count, b2.Count}.Max
        Dim rtn As String = ""
        Dim list_36() As String = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
        Dim n As Integer = Array.IndexOf(list_36, "A")
        Dim first, second, tmp As String
        Dim resultList As New List(Of String)
        tmp = "0" 
        For i = 0 To maxn - 1
            Try
                first = b1(i)
            Catch
                first = "0"
            End Try
            Try
                second = b2(i)
            Catch
                second = "0"
            End Try

            Dim tmpSum As Integer = Array.IndexOf(list_36, first) + Array.IndexOf(list_36, second) + Array.IndexOf(list_36, tmp)