Ambetto e ambo

[Cinzia27]

Ciao a tutti.
Vorrei fare una statistica sugli ambetti, sul ritardo storico, attuale e sulla frequenza.
Mi rivolgo soprattutto a chi se ne intende.
Finora sono riuscita a fare questo. Si può fare di meglio?

Sub Main
Dim ru(1)
    
    For r = 1 To 11
    If r = 11 Then r = 12
     ru(1) = r
    Scrivi

     a = 0:cc = 0:cc1 = 0
     es = 0
     ambetto = 0
     ambo = 0
    
    
     a = Array(10,20,30,40,50,60,70,80,90)
    
     For es = EstrazioneFin To EstrazioneFin - 300 Step - 1
    
      ambetto = VerificaAmbetto(a,r,es,RetNum,RetVinc)
      If ambetto > 0 Then
      cc = cc + 1
    If cc = 1 Then
Scrivi es & " " & SiglaRuota(r) & " " & StringaNumeri(a) & " ambetti " & ambetto & " at ambetto  " & FormatSpace(EstrazioneFin - es,4,1)
End If
End If

      ambo = SerieFreq(es,es,a,ru,2)
      If ambo > 0 Then
      cc1 = cc1 + 1
      If cc1 = 1 Then
Scrivi es & " " & SiglaRuota(r) & " " & StringaNumeri(a) & " ambo " & ambo & " at ambo " & FormatSpace(EstrazioneFin - es,4,1)

End If
End If
Next
Next
Scrivi
Scrivi String(60,"=")
Scrivi