Option Explicit
Sub Main
Dim Chiave,Estratti,AEstratti
Dim EstrA,EstrB,EstrC,EstrD,EstrE
Dim Sab1,Sab2,Sab3,Sab4,Sab5,Sab6,Sbc1,Sbc2,Sbc3,Sbc4,Sbc5,Sbc6
Dim Scd1,Scd2,Scd3,Scd4,Scd5,Scd6,Sde1,Sde2,Sde3,Sde4,Sde5,Sde6
Dim Sea1,Sea2,Sea3,Sea4,Sea5,Sea6
Chiave = CInt(InputBox("Inserisci la chiave ",,1))
Estratti = InputBox("Inserisci 5 numeri separati da un punto ( . )",,"16.20.77.82.70")
Estratti = "0." & Estratti
AEstratti = Split(Estratti,".")
EstrA = CInt(AEstratti(1)) : EstrB = CInt(AEstratti(2)) : EstrC = CInt(AEstratti(3))
EstrD = CInt(AEstratti(4)) : EstrE = CInt(AEstratti(5))
Scrivi Space(20) & " Numeri Inseriti " & Format2(EstrA) & " " & Format2(EstrB) & " ",1,0
Scrivi Format2(EstrC) & " " & Format2(EstrD) & " " & Format2(EstrE) & " - Chiave " & Format2(Chiave),1
Scrivi
Scrivi
Sab1 = Fuori90(EstrA + Chiave) : Sab2 = Fuori90(EstrB + Sab1)
Sab3 = Fuori90(Sab1 + Chiave) : Sab4 = Fuori90(Sab1 + Sab2)
Sab5 = Fuori90(Sab3 + Sab4) : Sab6 = Fuori90(Sab2 + Sab4 + Sab5)
Sbc1 = Fuori90(EstrB + Chiave) : Sbc2 = Fuori90(EstrC + Sbc1)
Sbc3 = Fuori90(Sbc1 + Chiave) : Sbc4 = Fuori90(Sbc1 + Sbc2)
Sbc5 = Fuori90(Sbc3 + Sbc4) : Sbc6 = Fuori90(Sbc2 + Sbc4 + Sbc5)
Scd1 = Fuori90(EstrC + Chiave) : Scd2 = Fuori90(EstrD + Scd1)
Scd3 = Fuori90(Scd1 + Chiave) : Scd4 = Fuori90(Scd1 + Scd2)
Scd5 = Fuori90(Scd3 + Scd4) : Scd6 = Fuori90(Scd2 + Scd4 + Scd5)
Sde1 = Fuori90(EstrD + Chiave) : Sde2 = Fuori90(EstrE + Sde1)
Sde3 = Fuori90(Sde1 + Chiave) : Sde4 = Fuori90(Sde1 + Sde2)
Sde5 = Fuori90(Sde3 + Sde4) : Sde6 = Fuori90(Sde2 + Sde4 + Sde5)
Sea1 = Fuori90(EstrE + Chiave) : Sea2 = Fuori90(EstrA + Sea1)
Sea3 = Fuori90(Sea1 + Chiave) : Sea4 = Fuori90(Sea1 + Sea2)
Sea5 = Fuori90(Sea3 + Sea4) : Sea6 = Fuori90(Sea2 + Sea4 + Sea5)
Scrivi Space(5) & Format2(EstrA) & " " & Format2(EstrB) & Space(10) & Format2(EstrB) & " " & Format2(EstrC),1,0
Scrivi Space(10) & Format2(EstrC) & " " & Format2(EstrD) & Space(10) & Format2(EstrD) & " " & Format2(EstrE),1,0
Scrivi Space(10) & Format2(EstrE) & " " & Format2(EstrA),1
'
Scrivi Space(5) & Format2(Chiave) & " " & Format2(Sab1) & " " & Format2(Sab2) & Space(7) & Format2(Chiave),1,0
Scrivi Space(1) & Format2(Sbc1) & " " & Format2(Sbc2) & Space(7) & Format2(Chiave) & Space(1) & Format2(Scd1),1,0
Scrivi Space(1) & Format2(Scd2) & Space(7) & Format2(Chiave) & Space(1) & Format2(Sde1) & Space(1) & Format2(Sde2),1,0
Scrivi Space(7) & Format2(Chiave) & Space(1) & Format2(Sea1) & Space(1) & Format2(Sea2),1
'
Scrivi Space(5) & Format2(Sab3) & " " & Format2(Sab4) & Space(10) & Format2(Sbc3) & " " & Format2(Sbc4),1,0
Scrivi Space(10) & Format2(Scd3) & Space(1) & Format2(Scd4) & Space(10) & Format2(Sde3) & Space(1) & Format2(Sde4),1,0
Scrivi Space(10) & Format2(Sea3) & Space(1) & Format2(Sea4),1
'
Scrivi Space(5) & Format2(Sab5) & Space(13) & Format2(Sbc5) & Space(13) & Format2(Scd5),1,0
Scrivi Space(13) & Format2(Sde5) & Space(13) & Format2(Sea5),1
Scrivi Space(5) & "--------" & Space(7) & "--------" & Space(7) & "--------" & Space(7) & "--------" & Space(7) & "--------",1
Scrivi Space(5) & Format2(Sab6) & Space(13) & Format2(Sbc6) & Space(13) & Format2(Scd6),1,0
Scrivi Space(13) & Format2(Sde6) & Space(13) & Format2(Sea6),1
End Sub