'Option Explicit
Sub Main
Dim g(9),num(3),k(9),fi(3),num2(2),rr(6),dd(6),yy(3),num3(6),va(3)
Dim go(90)
g(1) = 35
g(2) = 57
g(3) = 79
g(4) = 92
g(5) = 24
g(6) = 46
g(7) = 68
g(8) = 81
g(9) = 13
For N1 = 1 To 90
For N2 = 1 To 90
If N1 <> N2 Then
Messaggio n1 & " " & n2
z3 = n1
z6 = n2
Call SOMDECA(z3,z6,num,g,c)
k(1) = c
s1 = n1
s2 = n2
B1 = 1
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
S1 = Z3
S2 = Z6
Call SOMDECA(z3,z6,num,g,c)
k(2) = c
s1 = z3
s2 = z6
B1 = 1
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(3) = c
s1 = n1
s2 = n2
B1 = 3
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(4) = c
s1 = z3
s2 = z6
B1 = 3
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(5) = c
s1 = z3
s2 = z6
B1 = 7
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(6) = c
s1 = z3
s2 = z6
B1 = 3
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(7) = c
s1 = z3
s2 = z6
B1 = 7
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(8) = c
s1 = z3
s2 = z6
B1 = 3
Call DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
Call SOMDECA(z3,z6,num,g,c)
k(9) = c
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
fi(1) = Figura(k(1))
fi(2) = Figura(k(4))
fi(3) = Figura(k(5))
num2(1) = fi(1)
num2(2) = n1
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(1) = c
num2(1) = fi(1)
num2(2) = n2
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(2) = c
num2(1) = fi(2)
num2(2) = n1
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(3) = c
num2(1) = fi(2)
num2(2) = n2
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(4) = c
num2(1) = fi(3)
num2(2) = n1
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(5) = c
num2(1) = fi(3)
num2(2) = n2
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
rr(6) = c
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
num2(1) = k(1)
num2(2) = rr(1)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(1) = c
num2(1) = k(1)
num2(2) = rr(2)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(2) = c
num2(1) = k(4)
num2(2) = rr(3)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(3) = c
num2(1) = k(4)
num2(2) = rr(4)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(4) = c
num2(1) = k(5)
num2(2) = rr(5)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(5) = c
num2(1) = k(5)
num2(2) = rr(6)
a = StringaNumeri(num2,"",False)
Call Test_Piramide(A,c)
dd(6) = c
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
q1 = Figura(dd(1) + dd(2))
q2 = Figura(dd(3) + dd(4))
q3 = Figura(dd(5) + dd(6))
num(1) = dd(1)
num(2) = g(q1)
num(3) = dd(2)
a = StringaNumeri(num,"",False)
Call Test_Piramide(A,c)
yy(1) = c
num(1) = dd(3)
num(2) = g(q2)
num(3) = dd(4)
a = StringaNumeri(num,"",False)
Call Test_Piramide(A,c)
yy(2) = c
num(1) = dd(5)
num(2) = g(q3)
num(3) = dd(6)
a = StringaNumeri(num,"",False)
Call Test_Piramide(A,c)
yy(3) = c
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
num3(1) = yy(1)
num3(2) = k(1)
num3(3) = yy(2)
num3(4) = k(1)
num3(5) = yy(3)
a = StringaNumeri(num3,"",False)
Call Test_Piramide(A,c)
va(1) = Fuori90(c)
num3(1) = yy(1)
num3(2) = k(4)
num3(3) = yy(2)
num3(4) = k(4)
num3(5) = yy(3)
a = StringaNumeri(num3,"",False)
Call Test_Piramide(A,c)
va(2) = Fuori90(c)
num3(1) = yy(1)
num3(2) = k(5)
num3(3) = yy(2)
num3(4) = k(5)
num3(5) = yy(3)
a = StringaNumeri(num3,"",False)
Call Test_Piramide(A,c)
va(3) = Fuori90(c)
Scrivi " NUMERI " & n1 & " " & n2 & " " & va(1) & " " & va(2) & " " & va(3)
Scrivi
go(va(1)) = go(va(1)) + 1
End If
Next'n2
Next'n1
ed = 0
For p1 = 1 To 90
If go(p1) > 0 Then Scrivi go(p1) & " <> " & p1:ed = ed + go(p1):Scrivi
Next
Scrivi
Scrivi ed
End Sub
Sub Test_Piramide(A,c)
For X = 1 To Len(A) - 1
If Piramide(A,x) < 100 Then c = Piramide(A,X):x = 11
Next
End Sub
Function DECA(z1,z2,z3,z4,z5,z6,s1,s2,B1)
z1 =(Decina(s1) + B1)
If z1 > 9 Then z1 = z1 Mod 9
z2 =(Cadenza(s1) + B1)
If z2 > 9 Then z2 = z2 Mod 9
z3 =(z1*10) + z2
z4 =(Decina(s2) + B1)
If z4 > 9 Then z4 = z4 Mod 9
z5 =(Cadenza(s2) + B1)
If z5 > 9 Then z5 = z5 Mod 9
z6 =(z4*10) + z5
End Function
Function SOMDECA(z3,z6,num,g,c)
x1 =(Decina(z3) + Decina(z6) + Cadenza(z3) + Cadenza(z6)) Mod 9
If x1 = 0 Then x1 = 9
num(1) = z3
num(2) = g(x1)
num(3) = z6
If num(1) < 10 Then num(1) = 90 + num(1)
If num(3) < 10 Then num(3) = 90 + num(3)
a = StringaNumeri(num,"",False)
Call Test_Piramide(a,c)
End Function