salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Questo script l'ho chiamato - Somme Trino Settenario - a fianco sulla destra ho messo le varie somme, se ne ho omessa qualcuna ditemelo che cercherò di inserirla, questo spunto me lo aveva dato Avio che aveva trovato delle somme strane, se qualcuno vuole fare delle ricerche penso che così sia più agevolato
Questo script l'ho chiamato - Somme Trino Settenario - a fianco sulla destra ho messo le varie somme, se ne ho omessa qualcuna ditemelo che cercherò di inserirla, questo spunto me lo aveva dato Avio che aveva trovato delle somme strane, se qualcuno vuole fare delle ricerche penso che così sia più agevolato
Codice:
'Somme Trino Settenario
Option Explicit
Sub Main
Dim a(5),b(5),c(50),d(50),e(48),g(50),m(44)
Dim idEstrazione,fin,ruota
Dim r1,es
fin = EstrazioneFin
es = InputBox("Inserisci numero estrazione",idEstrazione,fin - 1)
r1 = InputBox("Inserisci numero ruota ( 1 - 10)",ruota,8)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
Scrivi ""
a(1) = Estratto(es,r1,1)
a(2) = Estratto(es,r1,2)
a(3) = Estratto(es,r1,3)
a(4) = Estratto(es,r1,4)
a(5) = Estratto(es,r1,5)
e(41) = Fuori90(a(1) + a(2) + a(3) + a(4) + a(5))'e(41)somma estratti base
m(1) = Estratto(es + 1,r1,1)
m(2) = Estratto(es + 1,r1,2)
m(3) = Estratto(es + 1,r1,3)
m(4) = Estratto(es + 1,r1,4)
m(5) = Estratto(es + 1,r1,5)
b(1) =(Fuori90(a(1) - a(2)))
c(1) =(Fuori90(b(1) + a(3)))
b(2) =(Fuori90(a(2) - a(3)))
c(2) =(Fuori90(b(2) + a(4)))
b(3) =(Fuori90(a(3) - a(4)))
c(3) =(Fuori90(b(3) + a(5)))
b(4) =(Fuori90(a(4) - a(5)))
c(4) =(Fuori90(b(4) + a(1)))
b(5) =(Fuori90(a(5) - a(1)))
c(5) =(Fuori90(b(5) + a(2)))
e(42) = Fuori90(c(1) + c(2) + c(3) + c(4) + c(5))'e(42) somma 5 terne
'-------------------------------------
'somme di ognuna delle 5 terne
e(36) = Fuori90(a(1) + a(2) + a(3))
e(37) = Fuori90(a(2) + a(3) + a(4))
e(38) = Fuori90(a(3) + a(4) + a(5))
e(39) = Fuori90(a(4) + a(5) + a(1))
e(40) = Fuori90(a(5) + a(1) + a(2))
'-------------------------------------
'somma delle 5 coppie
e(43) = Fuori90(c(1) + c(2))
e(44) = Fuori90(c(2) + c(3))
e(45) = Fuori90(c(3) + c(4))
e(46) = Fuori90(c(4) + c(5))
e(47) = Fuori90(c(5) + c(1))
c(6) =(Fuori90(c(1)*13))
c(7) =(Fuori90(c(2)*13))
c(8) =(Fuori90(c(7) + 1))
d(1) =(Fuori90(c(8) - c(6)))'d1 = Distanza tra c1 e c2
c(9) =(Fuori90(c(2)*13))
c(10) =(Fuori90(c(3)*13))
c(11) =(Fuori90(c(10) + 1))
d(8) =(Fuori90(c(11) - c(9)))'d8 = Distanza tra c2 e c3
c(12) =(Fuori90(c(3)*13))
c(13) =(Fuori90(c(4)*13))
c(14) =(Fuori90(c(13) + 1))
d(15) =(Fuori90(c(14) - c(12)))'d15 = Distanza tra c3 e c4
c(15) =(Fuori90(c(4)*13))
c(16) =(Fuori90(c(5)*13))
c(17) =(Fuori90(c(16) + 1))
d(22) =(Fuori90(c(17) - c(15)))'d22 = Distanza tra c4 e c5
c(18) =(Fuori90(c(5)*13))
c(19) =(Fuori90(c(1)*13))
c(20) =(Fuori90(c(19) + 1))
d(29) =(Fuori90(c(20) - c(18)))'d29 = Distanza tra c5 e c1
e(48) = Fuori90(d(1) + d(8) + d(15) + d(22) + d(29))'e(48) somma delle 5 coppie
d(2) =(Fuori90(c(1) + d(1)))
d(3) =(Fuori90(c(2) + d(2)))
d(4) =(Fuori90(d(1) + d(2)))
d(5) =(Fuori90(d(3) + d(2)))
d(6) =(Fuori90(d(4) + d(5)))
d(7) =(Fuori90(d(3) + d(5) + d(6)))'d7, 1º numero ricavato
d(9) =(Fuori90(c(2) + d(8)))
d(10) =(Fuori90(c(3) + d(9)))
d(11) =(Fuori90(d(8) + d(9)))
d(12) =(Fuori90(d(10) + d(9)))
d(13) =(Fuori90(d(11) + d(12)))
d(14) =(Fuori90(d(10) + d(12) + d(13)))'d14, 2º numero ricavato
d(16) =(Fuori90(c(3) + d(15)))
d(17) =(Fuori90(c(4) + d(16)))
d(18) =(Fuori90(d(15) + d(16)))
d(19) =(Fuori90(d(17) + d(16)))
d(20) =(Fuori90(d(18) + d(19)))
d(21) =(Fuori90(d(17) + d(19) + d(20)))'d21, 3º numero ricavato
d(23) =(Fuori90(c(4) + d(22)))
d(24) =(Fuori90(c(5) + d(23)))
d(25) =(Fuori90(d(22) + d(23)))
d(26) =(Fuori90(d(24) + d(23)))
d(27) =(Fuori90(d(25) + d(26)))
d(28) =(Fuori90(d(24) + d(26) + d(27)))'d28, 4º numero ricavato
d(30) =(Fuori90(c(5) + d(29)))
d(31) =(Fuori90(c(1) + d(30)))
d(32) =(Fuori90(d(29) + d(30)))
d(33) =(Fuori90(d(31) + d(30)))
d(34) =(Fuori90(d(32) + d(33)))
d(35) =(Fuori90(d(31) + d(33) + d(34)))'d35, 5º numero ricavato
'---------------------------------------------------------------------
'somme numeri prima piramide
m(6) = Fuori90(d(2) + d(9) + d(16) + d(23) + d(30))'m(6) somma quarti numeri
m(7) = Fuori90(d(3) + d(10) + d(17) + d(24) + d(31))'m(7) somma quinti numeri
m(8) = Fuori90(d(4) + d(11) + d(18) + d(25) + d(32))'m(8) somma sesti numeri
m(9) = Fuori90(d(5) + d(12) + d(19) + d(26) + d(33))'m(9) somma settimi numeri
m(10) = Fuori90(d(6) + d(13) + d(20) + d(27) + d(34))'m(10) somma ottavi numeri
m(11) = Fuori90(d(7) + d(14) + d(21) + d(28) + d(35))'m(11) somma noni numeri
'-----------------------------------------------------------------------
c(21) =(Fuori90(d(7)*13))
c(22) =(Fuori90(d(1) - 1))
c(23) =(Fuori90(c(21) - c(22)))
c(24) =(Fuori90(c(23)*7))'c24, Distanza tra d7 e d1
c(25) =(Fuori90(d(14)*13))
c(26) =(Fuori90(d(8) - 1))
c(27) =(Fuori90(c(25) - c(26)))
c(28) =(Fuori90(c(27)*7))'c28, Distanza tra d14 e d8
c(29) =(Fuori90(d(21)*13))
c(30) =(Fuori90(d(15) - 1))
c(31) =(Fuori90(c(29) - c(30)))
c(32) =(Fuori90(c(31)*7))'c32, Distanza tra d21 e d15
c(33) =(Fuori90(d(28)*13))
c(34) =(Fuori90(d(22) - 1))
c(35) =(Fuori90(c(33) - c(34)))
c(36) =(Fuori90(c(35)*7))'c36, Distanza tra d28 e d22
c(37) =(Fuori90(d(35)*13))
c(38) =(Fuori90(d(29) - 1))
c(39) =(Fuori90(c(37) - c(38)))
c(40) =(Fuori90(c(39)*7))'c40, Distanza tra d35 e d29
'-------------------------------------------------------------------------------------
'somme coda prima piramide
m(12) = Fuori90(c(24) + c(28) + c(32) + c(36) + c(40))'m(12) somma 1º coda 1ª piramide
c(41) =(Fuori90(c(24)*13))
c(42) =(Fuori90(91 - c(41))) ' c42 = distanza tra c24 e 90
c(43) =(Fuori90(c(28)*13))
c(44) =(Fuori90(91 - c(43))) ' c44 = distanza tra c28 e 90
c(45) =(Fuori90(c(32)*13))
c(46) =(Fuori90(91 - c(45))) ' c46 = distanza tra c32 e 90
c(47) =(Fuori90(c(36)*13))
c(48) =(Fuori90(91 - c(47))) ' c48 = distanza tra c36 e 90
c(49) =(Fuori90(c(40)*13))
c(50) =(Fuori90(91 - c(49))) ' c50 = distanza tra c40 e 90
m(13) = Fuori90(c(42) + c(44) + c(46) + c(48) + c(50))'m(13) somma 2º coda 1ª piramide
d(36) =(Fuori90(d(7) + d(1)))
d(37) =(Fuori90(d(14) + d(8)))
d(38) =(Fuori90(d(21) + d(15)))
d(39) =(Fuori90(d(28) + d(22)))
d(40) =(Fuori90(d(35) + d(29)))
m(14) = Fuori90(d(36) + d(37) + d(38) + d(39) + d(40))'m(14) somma 3º coda 1ª piramide
g(36) =(90 - a(1))
g(37) =(Fuori90(g(36)*13))
g(38) =(Fuori90(m(1)*13))
e(1) =(Fuori90(g(38) - g(37)))'e1 1º numero d'oro
g(39) =(90 - a(2))
g(40) =(Fuori90(g(39)*13))
g(41) =(Fuori90(m(2)*13))
e(2) =(Fuori90(g(41) - g(40)))'e2 2º numero d'oro
g(42) =(90 - a(3))
g(43) =(Fuori90(g(42)*13))
g(44) =(Fuori90(m(3)*13))
e(3) =(Fuori90(g(44) - g(43)))'e3 3º numero d'oro
g(45) =(90 - a(4))
g(46) =(Fuori90(g(45)*13))
g(47) =(Fuori90(m(4)*13))
e(4) =(Fuori90(g(47) - g(46)))'e4 4º numero d'oro
g(48) =(90 - a(5))
g(49) =(Fuori90(g(48)*13))
g(50) =(Fuori90(m(5)*13))
e(5) =(Fuori90(g(50) - g(49)))'e5 5º numero d'oro
m(15) = Fuori90(e(1) + e(2) + e(3) + e(4) + e(5)) 'm(15) somma 4º coda 1ª piramide
'------------------------------------------
d(41) =(Fuori90(c(42) + e(1)))
d(42) =(Fuori90(c(44) + e(2)))
d(43) =(Fuori90(c(46) + e(3)))
d(44) =(Fuori90(c(48) + e(4)))
d(45) =(Fuori90(c(50) + e(5)))
m(16) = Fuori90(d(41) + d(42) + d(43) + d(44) + d(45))'m(16) somma 5º coda 1ª piramide
e(6) =(Fuori90(c(1) + d(41)))
e(7) =(Fuori90(c(2) + e(6)))
e(8) =(Fuori90(d(41) + e(6)))
e(9) =(Fuori90(e(6) + e(7)))
e(10) =(Fuori90(e(8) + e(9)))
e(11) =(Fuori90(e(7) + e(9) + e(10)))'e11, 1º numero ricavato
e(12) =(Fuori90(c(2) + d(42)))
e(13) =(Fuori90(c(3) + e(12)))
e(14) =(Fuori90(d(42) + e(12)))
e(15) =(Fuori90(e(12) + e(13)))
e(16) =(Fuori90(e(14) + e(15)))
e(17) =(Fuori90(e(13) + e(15) + e(16)))'e17, 2º numero ricavato
e(18) =(Fuori90(c(3) + d(43)))
e(19) =(Fuori90(c(4) + e(18)))
e(20) =(Fuori90(d(43) + e(18)))
e(21) =(Fuori90(e(18) + e(19)))
e(22) =(Fuori90(e(20) + e(21)))
e(23) =(Fuori90(e(19) + e(21) + e(22)))'e23, 3º numero ricavato
e(24) =(Fuori90(c(4) + d(44)))
e(25) =(Fuori90(c(5) + e(24)))
e(26) =(Fuori90(d(44) + e(24)))
e(27) =(Fuori90(e(24) + e(25)))
e(28) =(Fuori90(e(26) + e(27)))
e(29) =(Fuori90(e(25) + e(27) + e(28)))'e29, 4º numero ricavato
e(30) =(Fuori90(c(5) + d(45)))
e(31) =(Fuori90(c(1) + e(30)))
e(32) =(Fuori90(d(45) + e(30)))
e(33) =(Fuori90(e(30) + e(31)))
e(34) =(Fuori90(e(32) + e(33)))
e(35) =(Fuori90(e(31) + e(33) + e(34)))'e35, 5º numero ricavato
'--------------------------------------------------------------------------------
'Somme seconda piramide
m(17) = Fuori90(e(6) + e(12) + e(18) + e(24) + e(30))'m(17) somma quarti numeri
m(18) = Fuori90(e(7) + e(13) + e(19) + e(25) + e(31))'m(18) somma quinti numeri
m(19) = Fuori90(e(8) + e(14) + e(20) + e(26) + e(32))'m(19) somma sesti numeri
m(20) = Fuori90(e(9) + e(15) + e(21) + e(27) + e(33))'m(20) somma settimi numeri
m(21) = Fuori90(e(10) + e(16) + e(22) + e(28) + e(34))'m(21) somma ottavi numeri
m(22) = Fuori90(e(11) + e(17) + e(23) + e(29) + e(35))'m(22) somma noni numeri
m(23) = Fuori90(a(1)+e(11)+a(3))
m(24) = Fuori90(a(2)+e(17)+a(4))
m(25) = Fuori90(a(3)+e(23)+a(5))
m(26) = Fuori90(a(4)+e(29)+a(1))
m(27) = Fuori90(a(5)+e(35)+a(2))
g(1) =(Fuori90(a(1) - e(11)))
g(2) =(Fuori90(g(1) + a(3)))
g(3) =(Fuori90(a(2) - e(17)))
g(4) =(Fuori90(g(3) + a(4)))
g(5) =(Fuori90(a(3) - e(23)))
g(6) =(Fuori90(g(5) + a(5)))
g(7) =(Fuori90(a(4) - e(29)))
g(8) =(Fuori90(g(7) + a(1)))
g(9) =(Fuori90(a(5) - e(35)))
g(10) =(Fuori90(g(9) + a(2)))
m(28) = Fuori90(g(2)+g(4)+g(6)+g(8)+g(10))
g(11) =(90 - g(2))
g(12) =(90 - a(1))
g(13) =(Fuori90(a(1) + g(11)))
g(14) =(Fuori90(a(3) + g(12)))
g(16) =(90 - g(4))
g(17) =(90 - a(2))
g(18) =(Fuori90(a(2) + g(16)))
g(19) =(Fuori90(a(4) + g(17)))
g(21) =(90 - g(6))
g(22) =(90 - a(3))
g(23) =(Fuori90(a(3) + g(21)))
g(24) =(Fuori90(a(5) + g(22)))
g(26) =(90 - g(8))
g(27) =(90 - a(4))
g(28) =(Fuori90(a(4) + g(26)))
g(29) =(Fuori90(a(1) + g(27)))
g(31) =(90 - g(10))
g(32) =(90 - a(5))
g(33) =(Fuori90(a(5) + g(31)))
g(34) =(Fuori90(a(2) + g(32)))
m(29) = Fuori90(a(1)+g(2)+a(3))
m(30) = Fuori90(a(2)+g(4)+a(4))
m(31) = Fuori90(a(3)+g(6)+a(5))
m(32) = Fuori90(a(4)+g(8)+a(1))
m(33) = Fuori90(a(5)+g(10)+a(2))
m(34) = Fuori90(a(1)+a(3))
m(35) = Fuori90(a(2)+a(4))
m(36) = Fuori90(a(3)+a(5))
m(37) = Fuori90(a(4)+a(1))
m(38) = Fuori90(a(5)+a(2))
m(39) = Fuori90(g(11)+g(12))
m(40) = Fuori90(g(16)+g(17))
m(41) = Fuori90(g(21)+g(22))
m(42) = Fuori90(g(26)+g(27))
m(43) = Fuori90(g(31)+g(32))
g(15) =(Fuori90(g(13) + g(14))) ' g15 1º numero futuro
g(20) =(Fuori90(g(18) + g(19))) ' g20 2º numero futuro
g(25) =(Fuori90(g(23) + g(24))) ' g25 3º numero futuro
g(30) =(Fuori90(g(28) + g(29))) ' g30 4º numero futuro
g(35) =(Fuori90(g(33) + g(34))) ' g35 5º numero futuro
m(44) = Fuori90(g(15) + g(20) + g(25) + g(30) + g(35))'m(44) somma futura cinquina
Scrivi " Estratti base " & Format2(a(1)) & " " & Format2(a(2)),0,0
Scrivi " " & Format2(a(3)) & " " & Format2(a(4)) & " " & Format2(a(5)),0,0
Scrivi " <-- Somma " & Format2(e(41))'1
Scrivi ""
Scrivi " Con gli estratti base formare 5 terne "
Scrivi ""
Scrivi " (" & Format2(a(1)) & " " & Format2(a(2)) & " " & Format2(a(3)),0,0
Scrivi ")(" & Format2(a(2)) & " " & Format2(a(3)) & " " & Format2(a(4)),0,0
Scrivi ")(" & Format2(a(3)) & " " & Format2(a(4)) & " " & Format2(a(5)),0,0
Scrivi ")(" & Format2(a(4)) & " " & Format2(a(5)) & " " & Format2(a(1)),0,0
Scrivi ")(" & Format2(a(5)) & " " & Format2(a(1)) & " " & Format2(a(2)) & ")",0,0
Scrivi " <-- Somme delle 5 terne " & Format2(e(36)) & " " & Format2(e(37)),0,0
Scrivi " " & Format2(e(38)) & " " & Format2(e(39)) & " " & Format2(e(40))'2
Scrivi("")
Scrivi " 5 numeri ricavate dalle 5 terne " & Format2(c(1)),0,0
Scrivi " " & Format2(c(2)) & " " & Format2(c(3)) & " " & Format2(c(4)),0,0
Scrivi " " & Format2(c(5)) & " <-- somma " & Format2(e(42))'3
Scrivi("")
Scrivi " Con i 5 numeri ricavati dalle 5 terne formare 5 coppie"
Scrivi("")
Scrivi " (" & Format2(c(1)) & " " & Format2(c(2)) & ") (" & Format2(c(2)),0,0
Scrivi " " & Format2(c(3)) & ") (" & Format2(c(3)) & " " & Format2(c(4)),0,0
Scrivi ") (" & Format2(c(4)) & " " & Format2(c(5)) & ") (" & Format2(c(5)),0,0
Scrivi " " & Format2(c(1)) &(")") & " <-- Somme delle 5 coppie ",0,0
Scrivi Format2(e(43)) & " " & Format2(e(44)) & " " & Format2(e(45)) & " " & Format2(e(46)) & " " & Format2(e(47))'4
Scrivi("")
Scrivi " 5 distanze ricavate dalle 5 coppie " & Format2(d(1)),0,0
Scrivi " " & Format2(d(8)) & " " & Format2(d(15)) & " " & Format2(d(22)),0,0
Scrivi " " & Format2(d(29)) & " <-- somma " & Format2(e(48))'5
Scrivi("")
Scrivi " PRIMA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c(1)) & " " & Format2(c(2)) & " " & Format2(c(2)),0,0
Scrivi " " & Format2(c(3)) & " " & Format2(c(3)) & " " & Format2(c(4)),0,0
Scrivi " " & Format2(c(4)) & " " & Format2(c(5)),0,0
Scrivi " " & Format2(c(5)) & " " & Format2(c(1))
Scrivi Format2(d(1)) & " " & Format2(d(2)) & " " & Format2(d(3)),0,0
Scrivi " " & Format2(d(8)) & " " & Format2(d(9)) & " " & Format2(d(10)),0,0
Scrivi " " & Format2(d(15)) & " " & Format2(d(16)) & " " & Format2(d(17)),0,0
Scrivi " " & Format2(d(22)) & " " & Format2(d(23)) & " " & Format2(d(24)),0,0
Scrivi " " & Format2(d(29)) & " " & Format2(d(30)) & " " & Format2(d(31)),0,0
Scrivi " <-- somme quarti e quinti numeri " & Format2(m(6)) & " " & Format2(m(7))'6
Scrivi " " & Format2(d(4)) & " " & Format2(d(5)) & " " & Format2(d(11)),0,0
Scrivi " " & Format2(d(12)) & " " & Format2(d(18)) & " " & Format2(d(19)),0,0
Scrivi " " & Format2(d(25)) & " " & Format2(d(26)),0,0
Scrivi " " & Format2(d(32)) & " " & Format2(d(33)),0,0
Scrivi " <-- somme sesti e settimi numeri " & Format2(m(8)) & " " & Format2(m(9))'7
Scrivi " " & Format2(d(6)) & " " & Format2(d(13)),0,0
Scrivi " " & Format2(d(20)) & " " & Format2(d(27)),0,0
Scrivi " " & Format2(d(34)) & " <-- somma " & Format2(m(10))'8
Scrivi " " & Format2(d(7)) & " " & Format2(d(1)),0,0
Scrivi " " & Format2(d(14)) & " " & Format2(d(8)),0,0
Scrivi " " & Format2(d(21)) & " " & Format2(d(15)),0,0
Scrivi " " & Format2(d(28)) & " " & Format2(d(22)),0,0
Scrivi " " & Format2(d(35)) & " " & Format2(d(29)) & " <-- somma " & Format2(m(11))'9
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(c(24)) & " " & Format2(c(28)),0,0
Scrivi " " & Format2(c(32)) & " " & Format2(c(36)),0,0
Scrivi " " & Format2(c(40)) & " <-- Somma " & Format2(m(12))'10
Scrivi " " & Format2(c(42)) & " " & Format2(c(44)),0,0
Scrivi " " & Format2(c(46)) & " " & Format2(c(48)),0,0
Scrivi " " & Format2(c(50)) & " <-- Somma " & Format2(m(13))'11
Scrivi " " & Format2(d(36)) & " " & Format2(d(37)),0,0
Scrivi " " & Format2(d(38)) & " " & Format2(d(39)),0,0
Scrivi " " & Format2(d(40)) & " <-- Somma " & Format2(m(14))'12
ColoreTesto (2)
Scrivi " " & Format2(e(1)) & " " & Format2(e(2)),0,0
Scrivi " " & Format2(e(3)) & " " & Format2(e(4)),0,0
Scrivi " " & Format2(e(5)) & " <-- Somma numeri d'oro " & Format2(m(15))'13
ColoreTesto (0)
Scrivi " " & Format2(d(41)) & " " & Format2(d(42)),0,0
Scrivi " " & Format2(d(43)) & " " & Format2(d(44)),0,0
Scrivi " " & Format2(d(45)) & " <-- Somma " & Format2(m(16))'14
Scrivi("----------------------------------------------------------------")
Scrivi " SECONDA PIRAMIDE PER OGNI NUMERO "
Scrivi("")
Scrivi Format2(c(1)) & " " & Format2(c(2)) & " " & Format2(c(2)),0,0
Scrivi " " & Format2(c(3)) & " " & Format2(c(3)) & " " & Format2(c(4)),0,0
Scrivi " " & Format2(c(4)) & " " & Format2(c(5)),0,0
Scrivi " " & Format2(c(5)) & " " & Format2(c(1))
Scrivi Format2(d(41)) & " " & Format2(e(6)) & " " & Format2(e(7)),0,0
Scrivi " " & Format2(d(42)) & " " & Format2(e(12)) & " " & Format2(e(13)),0,0
Scrivi " " & Format2(d(43)) & " " & Format2(e(18)) & " " & Format2(e(19)),0,0
Scrivi " " & Format2(d(44)) & " " & Format2(e(24)) & " " & Format2(e(25)),0,0
Scrivi " " & Format2(d(45)) & " " & Format2(e(30)) & " " & Format2(e(31)),0,0
Scrivi " <-- somme quarti e quinti numeri " & Format2(m(17)) & " " & Format2(m(18))'15
Scrivi " " & Format2(e(8)) & " " & Format2(e(9)),0,0
Scrivi " " & Format2(e(14)) & " " & Format2(e(15)),0,0
Scrivi " " & Format2(e(20)) & " " & Format2(e(21)),0,0
Scrivi " " & Format2(e(26)) & " " & Format2(e(27)),0,0
Scrivi " " & Format2(e(32)) & " " & Format2(e(33)),0,0
Scrivi " <-- somme sesti e settimi numeri " & Format2(m(19)) & " " & Format2(m(20))'16
Scrivi " " & Format2(e(10)) & " " & Format2(e(16)),0,0
Scrivi " " & Format2(e(22)) & " " & Format2(e(28)),0,0
Scrivi " " & Format2(e(34))& " <-- somma " & Format2(m(21))'17
Scrivi " " & Format2(e(11)) & " " & Format2(e(17)),0,0
Scrivi " " & Format2(e(23)) & " " & Format2(e(29)),0,0
Scrivi " " & Format2(e(35))& " <-- somma " & Format2(m(22))'18
Scrivi("----------------------------------------------------------------")
Scrivi Format2(a(1)) & " " & Format2(e(11)) & " " & Format2(a(3)),0,0
Scrivi " " & Format2(a(2)) & " " & Format2(e(17)) & " " & Format2(a(4)),0,0
Scrivi " " & Format2(a(3)) & " " & Format2(e(23)) & " " & Format2(a(5)),0,0
Scrivi " " & Format2(a(4)) & " " & Format2(e(29)) & " " & Format2(a(1)),0,0
Scrivi " " & Format2(a(5)) & " " & Format2(e(35)) & " " & Format2(a(2)),0,0
Scrivi " <-- Somme delle 5 terne " & Format2(m(23)) & " " & Format2(m(24)),0,0
Scrivi " " & Format2(m(25)) & " " & Format2(m(26)) & " " & Format2(m(27))'19
Scrivi " " & Format2(g(2)) & " " & Format2(g(4)),0,0
Scrivi " " & Format2(g(6)) & " " & Format2(g(8)),0,0
Scrivi " " & Format2(g(10))& " <-- somma " & Format2(m(28))'20
Scrivi Format2(a(1)) & " " & Format2(g(2)) & " " & Format2(a(3)),0,0
Scrivi " " & Format2(a(2)) & " " & Format2(g(4)) & " " & Format2(a(4)),0,0
Scrivi " " & Format2(a(3)) & " " & Format2(g(6)) & " " & Format2(a(5)),0,0
Scrivi " " & Format2(a(4)) & " " & Format2(g(8)) & " " & Format2(a(1)),0,0
Scrivi " " & Format2(a(5)) & " " & Format2(g(10)) & " " & Format2(a(2)),0,0
Scrivi " <-- Somme delle 5 terne " & Format2(m(29)) & " " & Format2(m(30)),0,0
Scrivi " " & Format2(m(31)) & " " & Format2(m(32)) & " " & Format2(m(33))'21
Scrivi("----------------------------------------------------------------")
Scrivi " " & Format2(a(1)) & " " & Format2(a(3)),0,0
Scrivi " " & Format2(a(2)) & " " & Format2(a(4)),0,0
Scrivi " " & Format2(a(3)) & " " & Format2(a(5)),0,0
Scrivi " " & Format2(a(4)) & " " & Format2(a(1)),0,0
Scrivi " " & Format2(a(5)) & " " & Format2(a(2))& " <-- Somme delle 5 coppie ",0,0
Scrivi Format2(m(34)) & " " & Format2(m(35)) & " " & Format2(m(36)) & " " & Format2(m(37)) & " " & Format2(m(38))'22
Scrivi " " & Format2(g(11)) & " " & Format2(g(12)),0,0
Scrivi " " & Format2(g(16)) & " " & Format2(g(17)),0,0
Scrivi " " & Format2(g(21)) & " " & Format2(g(22)),0,0
Scrivi " " & Format2(g(26)) & " " & Format2(g(27)),0,0
Scrivi " " & Format2(g(31)) & " " & Format2(g(32))& " <-- Somme delle 5 coppie ",0,0
Scrivi Format2(m(39)) & " " & Format2(m(40)) & " " & Format2(m(41)) & " " & Format2(m(42)) & " " & Format2(m(43))'23
Scrivi " " & Format2(g(13)) & " " & Format2(g(14)),0,0
Scrivi " " & Format2(g(18)) & " " & Format2(g(19)),0,0
Scrivi " " & Format2(g(23)) & " " & Format2(g(24)),0,0
Scrivi " " & Format2(g(28)) & " " & Format2(g(29)),0,0
Scrivi " " & Format2(g(33)) & " " & Format2(g(34))
Scrivi("")
Scrivi("La futura cinquina somma col fuori 90 delle ultime 5 coppie ")
Scrivi("")
Scrivi " " & Format2(g(15)) & " " & Format2(g(20)),0,0
Scrivi " " & Format2(g(25)) & " " & Format2(g(30)),0,0
Scrivi " " & Format2(g(35)) & " <-- Somma " & Format2(m(44))'24
End Sub