Ciao worki, probabilmente il listato non serve a niente, e ti spiego perchè:
prendiamo la ricerca fatta da matrix per la ruota di Cagliari.
Viene ricercato si un ambo dei cinque numeri, ma la caratteristica è che quei 5 numeri sono i 5 estratti sulla ruota di Bari al 12/2/09, quindi evento con tutti i 10 ambi.
Non penso, ma è comunque possibile, che si verifichi un'altra condizione simile.
A mio modesto parere finiti i 10 colpi messi in gioco è tutto da rifare, con altra condizione di 10 ambi in contemporanea.
Ti posto comunque l'iter per la ricerca dell'ambo in questione, tieni presente che i 5 numeri vanno inseriti dal più piccolo al più grosso. (contraddistinti dalle lettere a,b,c,d,e)
La condizione di ricerca è quindi contraddistinta da x e y che rappresenta l'ambo.
Ciao
Sub main()
Dim n(5)
a=3
b=24
c=47
d=61
e=70
n(1)=a:n(2)=b:n(3)=c:n(4)=d:n(5)=e
For x=n(1) To n(4):For y=n(1)+1 To n(5)
If x=a Or x=b Or x=c Or x=d Then
If y=b Or y=c Or y=d Or y=e Then
If y>x Then
Scrivi Format2(x) &"."&Format2
End If
End If
End If
Next
Next
End Sub
BeG_lotto
Vincere non è impossibile, la costanza e pazienza viene sempre premiata.
