Sub main()
Dim ruote(2)
Dim numeri1(3)
Dim numeri2(10)
Dim numeri3(3)
Dim numeri4(3)
Dim numeri5(3)
Dim numeri6(3)
Dim numeri7(3)
Dim numeri8(3)
Dim numeri9(3)
Dim posta(5)
Dim poste(1)
posta(2)=3
posta(3)=2
posta(4)=0.9
posta(5)=0.1
poste(1)=1
ruote(1)=1
k=5
y=4
For n=7694 To EstrazioneFin
If IndiceMensile
=1 Then
ruote(1)=1
ng=1
numeri1(1)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,2,4))+32)
ImpostaGiocata ng,numeri1,ruote,poste,k,y
ng=ng+1
numeri2(2)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,3,2))+71)
numeri2(3)=Vert(Fuori90(Abs(Estratto(n,1,2)-Estratto(n,7,3))+89))
numeri2(4)=Fuori90(Abs(Estratto(n,1,4)-Estratto(n,8,1))+80)
numeri2(5)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,9,5))+65)
numeri2(6)=Vert(Fuori90(Abs(Estratto(n,1,1)-Estratto(n,10,1))+71))
numeri2(7)=Fuori90(Abs(Estratto(n,1,2)-Estratto(n,10,3))+36)
numeri2(1)=Fuori90(Abs(Estratto(n,1,1)-Estratto(n,2,4))+32)
numeri2(8)=Vert(Fuori90(Abs(Estratto(n,1,4)-Estratto(n,10,4))+75))
numeri2(9)=Vert(Fuori90(Abs(Estratto(n,1,2)-Estratto(n,10,5))+37))
EliminaRipetuti(numeri2)
ImpostaGiocata ng,numeri2,ruote,posta,k,y
For a=1 To ng
For b=1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Scrivi Chr(13)&"*********************************************************************************"
Scrivi Chr(13)&"["&n&"] "& DataEstrazione
&" - ["& StringaNumeri(numeri1) &"] - "& StringaNumeri(numeri2) &""&chr(13)&chr(13)&chr(10)
Gioca n
End If
Next
ScriviResoconto
End Sub
ciclometria e matematica sommativa