Come tradurre lo script per il Super enalotto

[genios]

[CODE

'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
'SELEZIONARE LE AMBATE PRENDENDOLE A 2 A 2 IN DECINA NATURALE


Sub Main
Dim R(10)
Dim NN(1)
For RR = 1 To 10
Scrivi NomeRuota(rr)
R(1) = RR
fin = EstrazioneFin
For n = 1 To 90
NN(1) = n
a = fin
For Rit = 1 To 10

A = SerieUltima(a - 250,a,N,RR) - 1

Next
If fin - a > 270 Then Scrivi Format2(N) & " " & Fin - a
Next
Scrivi
Next
End Sub

Function SerieUltima(ini,fin,n,rr)
For Es = ini To fin
If Posizione(es,rr,n) > 0 Then SerieUltima = es
Next
End Function
][/CODE]

 

[genios]

Ma la funzione SerieUltima nelle funzioni del superenalotto non ce' ?

Saluti Eugenio