Ciao,
prova questo trovato in rete anni fa
Sub Main()
Dim numero
Dim ritardi(5,10)
Dim storici(5,10)
numero = InputBox("Inserisci il numero per la ricerca.")
If numero = "" Then
MsgBox "Programma terminato, non e' stato inserito nessun numero"
Exit Sub
End If
For r = 1 To 10
For i = 1 To 5
ritardi(i,r) = EstrazioneIni
Next
Next
For n = EstrazioneIni To EstrazioneFin
For r = 1 To 10
p = Posizione(n,r,numero)
If p > 0 Then
If n - ritardi(p,r) > storici(p,r) Then storici(p,r) = n - ritardi(p,r)
ritardi(p,r) = n
End If
Next
Next
Scrivi ""
Scrivi String(40,"=")
Scrivi "Ritardi nelle 5 posizioni del numero " & CStr(numero)
Scrivi String(40,"=")
Scrivi ""
For r = 1 To 10
Scrivi NomeRuota(r)
Scrivi " Rit Sto"
For p = 1 To 5
Scrivi "Posizione " & CStr(p) & ": " & FormatSpace(EstrazioneFin - ritardi(p,r),6) & CStr(storici(p,r))
Next
Scrivi "-----------------------------"
Next
End Sub
========================================
Ritardi nelle 5 posizioni del numero 73
========================================
Bari
Rit Sto
Posizione 1: 132 421
Posizione 2: 137 453
Posizione 3: 41 417
Posizione 4: 4 758
Posizione 5: 146 368
-----------------------------
Cagliari
Rit Sto
Posizione 1: 9 3581
Posizione 2: 242 3881
Posizione 3: 131 3714
Posizione 4: 27 3616
Posizione 5: 66 3665
-----------------------------
Firenze
Rit Sto
Posizione 1: 143 560
Posizione 2: 349 393
Posizione 3: 132 484
Posizione 4: 8 376
Posizione 5: 138 794
-----------------------------
Genova
Rit Sto
Posizione 1: 69 3598
Posizione 2: 6 3652
Posizione 3: 149 3675
Posizione 4: 54 3765
Posizione 5: 96 3969
-----------------------------
Milano
Rit Sto
Posizione 1: 83 371
Posizione 2: 32 320
Posizione 3: 14 665
Posizione 4: 136 345
Posizione 5: 10 510
-----------------------------
Napoli
Rit Sto
Posizione 1: 26 700
Posizione 2: 125 521
Posizione 3: 3 336
Posizione 4: 45 595
Posizione 5: 9 361
-----------------------------
Palermo
Rit Sto
Posizione 1: 78 643
Posizione 2: 234 496
Posizione 3: 5 350
Posizione 4: 195 435
Posizione 5: 54 384
-----------------------------
Roma
Rit Sto
Posizione 1: 28 599
Posizione 2: 20 298
Posizione 3: 38 492
Posizione 4: 59 460
Posizione 5: 70 279
-----------------------------
Torino
Rit Sto
Posizione 1: 129 790
Posizione 2: 236 338
Posizione 3: 4 439
Posizione 4: 130 856
Posizione 5: 13 630
-----------------------------
Venezia
Rit Sto
Posizione 1: 328 429
Posizione 2: 26 496
Posizione 3: 47 398
Posizione 4: 130 455
Posizione 5: 50 702
-----------------------------
