Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Sub Main()
Dim rt(2),rt1(2),pt(4),n1(7)
pt(1) = 1
pt(2) = 2
pt(3) = 0.5
pt(4) = 0.5
clp = 13
rt(1) = 5
rt(2) = 6
rt1(1) = 11
rt1(2) = 12
ini = 10541
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 13 Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n°...
G = Estratto(es,3,5)
H = Estratto(es,7,5)
n1(4) = Fuori90(G + H + 78)
somma due estratti +78 ruota firenze 5 estratto 51 ruota palermo 5 estratto 19 +fisso 78 tot 148 - 90 ---> 58
così ti trovi