cerca numero fisso con tutti gli 89 numeri isotopi

Inserisci nel listato un numero fisso, nel resoconto troverai tutti gli 89 numeri isotopi

ESEMPIO RESOCONTO DEI PRIMI NUMERI : 01 - 02 - 03 ISOTOPI AL NUMERO SCELTO : 90

CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 1 CON 90

11.09.1926 .. VE .. 01.64.52.76.53 .. 1° Estratto .. n° 1
18.09.1926 .. VE .. 90.16.40.41.84 .. 1° Estratto .. n° 90
----------------------------------------------------------
04.05.1940 .. VE .. 01.26.27.79.48 .. 1° Estratto .. n° 1
11.05.1940 .. VE .. 90.10.82.65.73 .. 1° Estratto .. n° 90
----------------------------------------------------------
24.03.1951 .. VE .. 80.57.62.37.01 .. 5° estratto .. n° 1
31.03.1951 .. VE .. 33.39.83.56.90 .. 5° Estratto .. n° 90
----------------------------------------------------------
02.05.1953 .. VE .. 45.65.50.18.01 .. 5° estratto .. n° 1
09.05.1953 .. VE .. 88.69.40.74.90 .. 5° Estratto .. n° 90
----------------------------------------------------------
30.03.2019 .. VE .. 26.25.50.13.01 .. 5° estratto .. n° 1
02.04.2019 .. VE .. 24.80.05.86.90 .. 5° Estratto .. n° 90
----------------------------------------------------------

CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 2 CON 90

13.02.1881 .. VE .. 78.02.67.87.18 .. 2° estratto .. n° 2
20.02.1881 .. VE .. 35.90.06.03.59 .. 2° Estratto .. n° 90
----------------------------------------------------------
20.03.1909 .. VE .. 04.73.02.90.55 .. 3° estratto .. n° 2
27.03.1909 .. VE .. 44.87.90.78.47 .. 3° Estratto .. n° 90
----------------------------------------------------------
29.05.2018 .. VE .. 40.02.79.33.63 .. 2° estratto .. n° 2
31.05.2018 .. VE .. 15.90.81.53.34 .. 2° Estratto .. n° 90
----------------------------------------------------------

CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO 3 CON 90

27.09.1874 .. VE .. 03.20.06.66.40 .. 1° Estratto .. n° 3
04.10.1874 .. VE .. 90.37.42.22.70 .. 1° Estratto .. n° 90
----------------------------------------------------------
20.10.1895 .. VE .. 25.56.03.40.83 .. 3° estratto .. n° 3
27.10.1895 .. VE .. 14.84.90.89.81 .. 3° Estratto .. n° 90
----------------------------------------------------------
04.09.1920 .. VE .. 39.37.03.81.01 .. 3° estratto .. n° 3
11.09.1920 .. VE .. 47.71.90.41.43 .. 3° Estratto .. n° 90
----------------------------------------------------------
24.10.1925 .. VE .. 03.31.87.36.85 .. 1° Estratto .. n° 3
31.10.1925 .. VE .. 90.39.83.87.42 .. 1° Estratto .. n° 90
----------------------------------------------------------
16.06.2001 .. VE .. 04.15.47.03.08 .. 4° estratto .. n° 3
20.06.2001 .. VE .. 56.54.35.90.31 .. 4° Estratto .. n° 90
----------------------------------------------------------
04.05.2005 .. VE .. 67.37.03.21.22 .. 3° estratto .. n° 3
07.05.2005 .. VE .. 05.72.90.37.67 .. 3° Estratto .. n° 90
----------------------------------------------------------
09.09.2008 .. VE .. 12.03.45.80.28 .. 2° estratto .. n° 3
11.09.2008 .. VE .. 45.90.15.74.52 .. 2° Estratto .. n° 90
----------------------------------------------------------
18.02.2012 .. VE .. 16.70.57.09.03 .. 5° estratto .. n° 3
21.02.2012 .. VE .. 19.26.62.27.90 .. 5° Estratto .. n° 90
----------------------------------------------------------
06.12.2018 .. VE .. 33.35.06.03.58 .. 4° estratto .. n° 3
10.12.2018 .. VE .. 60.87.42.90.26 .. 4° Estratto .. n° 90
----------------------------------------------------------


Sub Main()
For y = 1 To 89
For w = 90 To 90
Scrivi
ColoreTesto 1
Scrivi"CERCA NUMERO ISOTOPO IN ESTRAZIONE SUCCESSIVA DEL NUMERO " & y & " CON " & w,1
ColoreTesto 0
Scrivi
For r = 10 To 10
ini = EstrazioneFin - 9906
fin = EstrazioneFin
For es = ini To fin
es1 = es + 1
If(Estratto(es,r,1) = y)Then
If(Estratto(es1,r,1) = w)Then
Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 1° Estratto .. n°",1,0
Scrivi" " & Estratto(es,r,1),1
ColoreTesto 2
Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 1° Estratto .. n°",1,0
Scrivi" " & Estratto(es1,r,1),1
ColoreTesto 0
Scrivi"----------------------------------------------------------",1
End If
End If
If(Estratto(es,r,2) = y)Then
If(Estratto(es1,r,2) = w)Then
Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 2° estratto .. n°",1,0
Scrivi" " & Estratto(es,r,2),1
ColoreTesto 2
Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 2° Estratto .. n°",1,0
Scrivi" " & Estratto(es1,r,2),1
ColoreTesto 0
Scrivi"----------------------------------------------------------",1
End If
End If
If(Estratto(es,r,3) = y)Then
If(Estratto(es1,r,3) = w)Then
Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 3° estratto .. n°",1,0
Scrivi " " & Estratto(es,r,3),1
ColoreTesto 2
Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 3° Estratto .. n°",1,0
Scrivi" " & Estratto(es1,r,3),1
ColoreTesto 0
Scrivi"----------------------------------------------------------",1
End If
End If
If(Estratto(es,r,4) = y)Then
If(Estratto(es1,r,4) = w)Then
Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 4° estratto .. n°",1,0
Scrivi " " & Estratto(es,r,4),1
ColoreTesto 2
Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 4° Estratto .. n°",1,0
Scrivi" " & Estratto(es1,r,4),1
ColoreTesto 0
Scrivi"----------------------------------------------------------",1
End If
End If
If(Estratto(es,r,5) = y)Then
If(Estratto(es1,r,5) = w)Then
Scrivi DataEstrazione(es) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es,r) & " .. 5° estratto .. n°",1,0
Scrivi" " & Estratto(es,r,5),1
ColoreTesto 2
Scrivi DataEstrazione(es1) & " .. " & SiglaRuota(r) & " .. " & StringaEstratti(es1,r) & " .. 5° Estratto .. n°",1,0
Scrivi" " & Estratto(es1,r,5),1
ColoreTesto 0
Scrivi"----------------------------------------------------------",1
End If
End If
Next
Next
Next
Next
End Sub