Info su quale linguaggio utilizzare

Private Sub AmbiTutti_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CreaMatrice() 'Matrice archivio
conta = 0
For A1 = 1 To 89
For A2 = A1 + 1 To 90
conta = conta + 1
Ambi(conta, 0) = conta 'Progressivo
Ambi(conta, 1) = A1 '1° numero
Ambi(conta, 2) = A2 '2° numero
Ambi(conta, 3) = 0 'Frequenza
Ambi(conta, 4) = 0 'Rit.Attuale
Ambi(conta, 5) = 0 'Rit.Storico
Ambi(conta, 6) = 0 'Memorizza riga Uscita
Next A2
Next A1
End Sub
Sub CercaAmbi()
Dim I As Long : Dim rusc As Long : Dim rig As Long
Dim ini As Long : Dim fin As Long
Dim caso As Long : Dim nambi As Long
caso = 0 : MaxFre = 0 : MaxRit = 0
ini = 0
fin = NEMax
For nambi = 1 To NrAmbi
For rig = ini To fin
conta = 0
For I = 0 To 4
If dati(rig)(colr + I) = Ambi(nambi, 1) Then
conta = conta + 1
ElseIf dati(rig)(colr + I) = Ambi(nambi, 2) Then
conta = conta + 1
End If
If conta = NumEstr Then Exit For
Next I
'--------------------------------------
If conta = 2 Then
Ambi(nambi, 3) = Ambi(nambi, 3) + 1 'Frequenza
If MaxFre < Ambi(nambi, 3) Then MaxFre = Ambi(nambi, 3)
rusc = rig - Ambi(nambi, 6) 'riga uscita ambo
Ambi(nambi, 6) = rig 'memorizza riga
If rusc > Ambi(nambi, 5) And rig < fin Then Ambi(nambi, 5) = rusc 'Rit.Sto.
Ambi(nambi, 4) = fin - rig 'Ritardo Attuale
If MaxRit < Ambi(nambi, 4) Then MaxRit = Ambi(nambi, 4)
End If
Next rig
Next nambi
End Sub

Imports System.IO
Public Class AmbiTutti
   Public Shared dati As Dictionary(Of Integer, String()) = New Dictionary(Of Integer, String())
   Public Shared lR() As String
   Public Shared NEMax As Integer
   '---------------------------------------------------------------------------------------------
   Public NrAmbi As Integer = 4005
   Public Ambi(NrAmbi, 7) As String
   Public NumEstr As Byte = 2 'Quantità Estratti su 2 numeri
   Public MaxRit As Integer  'Max.Rit.Att
   Public MaxFre As Integer  'Max.Frequenza
   Dim Sc As String : Dim colr As Byte : Dim A1 As Long : Dim A2 As Long : Dim conta As Long
   Public Shared Sub CreaMatrice()
       dati.Clear()
       Dim percorso As String = Directory.GetCurrentDirectory()
       Dim nomeFile As String = "\ArchivioLotto.txt"
       Using mydati As IO.StreamReader = New IO.StreamReader(percorso & nomeFile)
           Dim p As String = mydati.ReadToEnd
           Dim n As Integer
           lR = p.Split(vbCrLf)
           For n = 0 To lR.Length - 1
               dati.Add(n, lR(n).Split(";"))
           Next n
           NEMax = lR.Length - 2
       End Using
   End Sub
   Private Sub AmbiTutti_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       CreaMatrice() 'Matrice archivio
       conta = 0
       For A1 = 1 To 89
           For A2 = A1 + 1 To 90
               conta = conta + 1
               Ambi(conta, 0) = conta 'Progressivo
               Ambi(conta, 1) = A1   '1° numero
               Ambi(conta, 2) = A2   '2° numero
               Ambi(conta, 3) = 0    'Frequenza
               Ambi(conta, 4) = 0    'Rit.Attuale
               Ambi(conta, 5) = 0    'Rit.Storico
               Ambi(conta, 6) = 0    'Memorizza riga Uscita
           Next A2
       Next A1
   End Sub
   Sub CercaAmbi()
       Dim I As Long : Dim rusc As Long : Dim rig As Long
       Dim ini As Long : Dim fin As Long
       Dim caso As Long : Dim nambi As Long
       caso = 0 : MaxFre = 0 : MaxRit = 0
       ini = 0
       fin = NEMax
       For nambi = 1 To NrAmbi
           For rig = ini To fin
               conta = 0
               For I = 0 To 4
                   If dati(rig)(colr + I) = Ambi(nambi, 1) Then
                       conta = conta + 1
                   ElseIf dati(rig)(colr + I) = Ambi(nambi, 2) Then
                       conta = conta + 1
                   End If
                   If conta = NumEstr Then Exit For
               Next I
               '--------------------------------------
               If conta = NumEstr Then
                   Ambi(nambi, 3) = Ambi(nambi, 3) + 1   'Frequenza
                   If MaxFre < Ambi(nambi, 3) Then MaxFre = Ambi(nambi, 3)
                   rusc = rig - Ambi(nambi, 6)   'riga uscita ambo
                   Ambi(nambi, 6) = rig  'memorizza riga
                   If rusc > Ambi(nambi, 5) And rig < fin Then Ambi(nambi, 5) = rusc 'Rit.Sto.
                   Ambi(nambi, 4) = fin - rig   'Ritardo Attuale
                   If MaxRit < Ambi(nambi, 4) Then MaxRit = Ambi(nambi, 4)
               End If
           Next rig
       Next nambi
       '=== Visualizzo i dati in una DataGridView ==================================
   End Sub