Ti ringrazio. Gentilissima
Buona serata
Guarda lo script ;
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Num2
Dim S1,S2,S3,S4,S5,S6,S7,S8,S10,S11,S12,Ambata,S
Num1 = InputBox("Inserisci i primi 5 numeri separati da un punto"," 76.28.65.77.33")
Num2 = InputBox("Inserisci i secondi 5 numeri separati da un punto"," 41.60.61.59.63")
Num1 = "0." & Num1
S7 = Split(Num1,".")
A1 = CInt(S7(1))
A2 = CInt(S7(2))
A3 = CInt(S7(3))
A4 = CInt(S7(4))
A5 = CInt(S7(5))
Num2 = "0." & Num2
S8 = Split(Num2,".")
B1 = CInt(S8(1))
B2 = CInt(S8(2))
B3 = CInt(S8(3))
B4 = CInt(S8(4))
B5 = CInt(S8(5))
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
S12 = Fuori90(S11 + S10)
Scrivi Space(20) &(" Primi 5 Numeri inseriti ") & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
Scrivi Space(20) &(" Secondi 5 Numeri inseriti ") & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi
Scrivi
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0
Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
ColoreTesto 1
Scrivi Format2(S10),1
ColoreTesto 0
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
ColoreTesto 2
Scrivi " " & Format2(Ambata),1,0
ColoreTesto 0
Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
ColoreTesto 1
Scrivi Format2(S11),1
ColoreTesto 0
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Risultato Equazione ",1
Scrivi
End Sub