metodo

[Roby]

qualcuno che ha un'idea migliore, per migliorare questo mio nuovo metodo?

Sub main()
Dim ruote(10)
Dim numeri1(10),n1(20)
Dim posta(5)
posta(2)=1
posta(3)=1
ruote(1)=11
k=12
y=3
For n=7300 To EstrazioneFin
If IndiceMensile(n)=1 Then
n1(1)=Fuori90(Estratto(n,1,3)*Estratto(n,10,3))
n1(2)=Fuori90(Estratto(n,1,3)+71)
n1(3)=Fuori90(Estratto(n,1,3)+35)
n1(4)=Fuori90(Estratto(n,1,3)+17)
n1(5)=Fuori90(Estratto(n,1,3)*Estratto(n,4,2))
ng=0
numeri1(1)=n1(3)
numeri1(2)=n1(4)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(2)
numeri1(2)=n1(4)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(4)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(2)
numeri1(2)=n1(3)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(3)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(2)
numeri1(3)=n1(5)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(2)
numeri1(2)=n1(3)
numeri1(3)=n1(4)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(3)
numeri1(3)=n1(4)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(2)
numeri1(3)=n1(4)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=n1(1)
numeri1(2)=n1(2)
numeri1(3)=n1(3)
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y

For a=1 To ng
For b=1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n 
End If
Next
ScriviResoconto
End Sub

Saluti Mimmo