Italian Array con indice letterale

var
dizionario :Array ['A'..'Z'] of Integer;

Dim Indice As List = Array As String("A","B","Z") ' Tua lista alfanumerica
Dim Dizionario() As Int

Sub Cerca(Chiave As String) As Int
    Dim A As Int = Indice.IndexOf("Chiave")
   
    If a>-1 Then 
        Return Dizionario(a)
    Else
        Return -255
    End If
End Sub

Sub Assegna(Chiave As String, Valore As Int)
    Dim A As Int = Indice.IndexOf("Chiave")
   
    If a>-1 Then Dizionario(a)=Valore
End Sub

Dim M As Map

M.Initialize
For i= 0 To 26
   M.Put(Chr(65+i),0)
Next

Dim Indice() As String = Array As String("A","B","Z") ' Tua lista alfanumerica
Dim M As Map

M.Initialize
For i= 0 To Indice.Size
   M.Put(Indice(i),0)
Next

    Select code_char
        Case "A"
            result = 10
        Case "B"
            result = 12
        ... etc ...   
    End Select

Dim Indice as List = Array As String("A","B","Z") ' Tua lista alfanumerica
Dim Value() as int = Array of Int (10,12,14)


Dim CercaLettera as String="A"
Dim Valore as int =Value(Indice.IndexOf(CercaLettera))

    Dim Indice() As String= Array As String("A","B","Z") ' Tua lista alfanumerica
    Dim Value() As Int = Array As Int (10,12,14)

    Dim M As Map

    M.Initialize
    For i= 0 To Indice.Size
        M.Put(Indice(i),Value(i))
    Next

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    Dim LetteralIndex As MyMap

    'Inserimento
    LetteralIndex.Initialize
    LetteralIndex.Add("A",10).Add("B",20).Add("Z",30)
    'Ricerca
    LetteralIndex.Map.GetKeyAt(0)
    LetteralIndex.Map.GetValueAt(0)
    Log(LetteralIndex.Map.Get("a"))
End Sub

Sub Class_Globals
    Dim M As Map
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
    M.Clear
End Sub

Public Sub Add(Key As Object, Value As Object) As MyMap
    M.Put(Key,Value)
    Return Me
End Sub

Public Sub Map As Map
    Return M
End Sub

public Sub ISO_6346_Ck(CtrNum As String) As Boolean
    Dim acc, ax, checkdigit As Int
    Dim remx, s, i As Int
    Dim b As Boolean
    Dim Indice() As String= Array As String("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 Value() As Int = Array As Int (10,12,13,14,15,16,17,18,19,20,21,23,24,25,26,27,28,29,30,31,32,34,35,36,37,38)
    Dim M As Map
    M.Initialize
    ' Carica il vettore dei valori alfanumerici -> Star-Dust mode :)
    For i= 0 To Indice.Length - 1
        M.Put(Indice(i),Value(i))
    Next
    acc = 0
    s = 0
    ' Esegue l'algoritmo per il check dei primi 10 valori
    For i = 0  To 9 
        ' L'algoritmo prevede la moltiplicazione con 2^n e per n da 0 a 9
        s = Power(2, i)
        ' Le prime quattro sono lettere
        If i < 4 Then
            ax = M.Get(Indice(Asc(CtrNum.CharAt(i))-65)) * s
        Else       
            ' I restanti 6 sono numeri
            ax = (Asc(CtrNum.CharAt(i)) - 48) * s
        End If
    acc = acc + ax
    Next
    remx = (Floor(acc) Mod 11) Mod 10
    ' Estrazione check digit e conversione in numero
    checkdigit = Asc(CtrNum.CharAt(10))-48
    ' Controllo tra calcolato e inserito (ultima cifra)
    If (CtrNum.Length = 11) And (remx = checkdigit) Then
        b = True
    End If
    Return (b)
End Sub

remx = (Floor(acc) Mod 11) Mod 10

remx = (acc Mod 11) Mod 10

Indice = "K"  'esempio
num = Value(Asc(Indice) - 65)
'che nel tuo caso si ridurrebbe a qualcosa tipo
ax = Value(Asc(CtrNum.CharAt(i))-65) * s

    Dim acc, ax As Double
    Dim remx, s, i, checkdigit As Int

Function ISO6346Check(k As String) ' Calculates the ISO Shipping Container Check Digit
Dim i%, s&
Application.Volatile
For i = 1 To 10
s = s + IIf(i < 5, Fix(11 * (Asc(Mid(k, i)) - 56) / 10) + 1, Asc(Mid(k, i)) - 48) * 2 ^ (i - 1)
Next i
ISO6346Check = (s - Fix(s / 11) * 11) Mod 10
End Function