Sub main()
'Eugenio cicli di 9 estrazione per la sorte di almeno 2 ambi - decine naturali(Cinzia)
Dim n1(10),n2(20),n3(30),n4(40),n5(50),n6(60),n7(70),n8(80),n9(90),ru(1)
s=2 'SORTE
q=2
For a=1 To 10
n1(a)=a
Next
Scrivi " DECINE NATURALI ",0,0
For rr=1 To 11
If rr=11 Then rr=12
Scrivi FormatSpace(SiglaRuota(rr),3,1)&" ",0,0
Next
Scrivi
Scrivi StringaNumeri(n1)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n1,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For b=11 To 20
n2(b)=b
Next
Scrivi
Scrivi StringaNumeri(n2)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n2,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For c=21 To 30
n3(c)=c
Next
Scrivi
Scrivi StringaNumeri(n3)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n3,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For d=31 To 40
n4(d)=d
Next
Scrivi
Scrivi StringaNumeri(n4)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n4,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For e=41 To 50
n5(e)=e
Next
Scrivi
Scrivi StringaNumeri(n5)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n5,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For f=51 To 60
n6(f)=f
Next
Scrivi
Scrivi StringaNumeri(n6)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n6,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For g=61 To 70
n7(g)=g
Next
Scrivi
Scrivi StringaNumeri(n7)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n7,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For h=71 To 80
n8(h)=h
Next
Scrivi
Scrivi StringaNumeri(n8)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n8,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
'-------------------------------------------
For i=81 To 90
n9(i)=i
Next
Scrivi
Scrivi StringaNumeri(n9)&" ",0,0
For r=1 To 11
If r=11 Then r=12
cc=0
c=0
ru(1)=r
For es= EstrazioneFin To EstrazioneFin-500 step -9
cc=cc+1
fr=SerieFreq(es-8,es,n9,ru,s)
If fr >=2 Then
c=c+1
If c=1 Then
rt=cc-1
Scrivi FormatSpace(FormatNumber(rt,0),4,1)&" ",0,0
End If
End If
Next
Next
End Sub