per L8
Sub main()
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(10),ruota(10),ruota1(10)
Dim posta(5),poste(5)
posta(2)=1
poste(1)=1
ruota(1)=8
ruote(2)=11
ruota(3)=3
For n= 7537 To EstrazioneFin
If IndiceMensile

=7 Then
co=0
a1=Abs(Estratto(n,4,1)-Estratto(n,7,4)):b1=Fuori90(a1+23)
a2=Abs(Estratto(n,8,2)-Estratto(n,10,4)):b2=Fuori90(a2+48)
a3=Abs(Estratto(n,6,5)-Estratto(n,7,4)):b3=Fuori90(a3+42)
a4=Abs(Estratto(n,7,1)-Estratto(n,8,2)):b4=Fuori90(a4+1)
a5=Abs(Estratto(n,1,5)-Estratto(n,4,5)):b5=Fuori90(a5+79)
numeri1(1)=Vert(b1)
numeri1(2)=Vert(b2)
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b1)
numeri1(2)=Vert(b3)
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b1)
numeri1(2)=Vert(b4)
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b1)
numeri1(2)=b5
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b2)
numeri1(2)=Vert(b3)
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b2)
numeri1(2)=Vert(b4)
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri1(1)=Vert(b2)
numeri1(2)=b5
co=co+1
ImpostaGiocata co,numeri1,ruote,posta,11
numeri2(1)=Vert(b1)
numeri2(2)=Vert(b2)
numeri2(3)=Vert(b3)
numeri2(4)=Vert(b4)
numeri2(5)=b5
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
ImpostaInterruzioni 1,2,1
Gioca n
End If
Next
ScriviResoconto
End Sub
ciclometria e matematica sommativa