Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
'
Dim a(4),b(4),c(4),d(4)
Dim n1,n2,n3,n4,n5,n6,n7,n8,n9,n10
Dim x,y
'
a(1) = 16
a(2) = 3
a(3) = 2
a(4) = 13
'------------------------------
b(1) = 5
b(2) = 10
b(3) = 11
b(4) = 8
'------------------------------
c(1) = 9
c(2) = 6
c(3) = 7
c(4) = 12
'------------------------------
d(1) = 4
d(2) = 15
d(3) = 14
d(4) = 1
'------------------------------
'
n1 = Fuori90(a(1) + a(2) + a(3) + a(4))
n2 = Fuori90(b(1) + b(2) + b(3) + b(4))
n3 = Fuori90(c(1) + c(2) + c(3) + c(4))
n4 = Fuori90(d(1) + d(2) + d(3) + d(4))
'---------------------------------------------
n5 = Fuori90(a(1) + b(1) + c(1) + d(1))
n6 = Fuori90(a(2) + b(2) + c(2) + d(2))
n7 = Fuori90(a(3) + b(3) + c(3) + d(3))
n8 = Fuori90(a(4) + b(4) + c(4) + d(4))
'---------------------------------------------
n9 = Fuori90(a(1) + b(2) + c(3) + d(4))
n10 = Fuori90(d(1) + c(2) + b(3) + a(4))
'----------------------------------------------
'
Scrivi "(" & 1 & ")" & Space(2) & a(1) & "+" & a(2) & "+" & a(3) & "+" & a(4) & " = " & n1 & ""
Scrivi "(" & 2 & ")" & Space(2) & b(1) & "+" & b(2) & "+" & b(3) & "+" & b(4) & " = " & n1 & ""
Scrivi "(" & 3 & ")" & Space(2) & c(1) & "+" & c(2) & "+" & c(3) & "+" & c(4) & " = " & n1 & ""
Scrivi "(" & 4 & ")" & Space(2) & d(1) & "+" & d(2) & "+" & d(3) & "+" & d(4) & " = " & n1 & ""
'
Scrivi "(" & 5 & ")" & Space(2) & a(1) & "+" & b(1) & "+" & c(1) & "+" & d(1) & " = " & n1 & ""
Scrivi "(" & 6 & ")" & Space(2) & a(2) & "+" & b(2) & "+" & c(2) & "+" & d(2) & " = " & n1 & ""
Scrivi "(" & 7 & ")" & Space(2) & a(3) & "+" & b(3) & "+" & c(3) & "+" & d(3) & " = " & n1 & ""
Scrivi "(" & 8 & ")" & Space(2) & a(4) & "+" & b(4) & "+" & c(4) & "+" & d(4) & " = " & n1 & ""
'
Scrivi "(" & 9 & ")" & Space(2) & a(1) & "+" & b(2) & "+" & c(3) & "+" & d(4) & " = " & n1 & ""
Scrivi "(" & 10 & ")" & Space(2) & d(1) & "+" & c(2) & "+" & b(3) & "+" & a(4) & " = " & n1 & ""
'
End Sub
Alien ecco lo script