Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim COLONNE,Classe,SCOLONNA,K,J,X
Dim NUMERI(10)
Classe = 6
' For X = 1 To 7
' NUMERI(X) = X
' Next
ScegliNumeri(NUMERI)
COLONNE = SviluppoPermutazioni(NUMERI,Classe)
For K = 1 To UBound(COLONNE)
SCOLONNA = ""
For J = 1 To Classe
SCOLONNA = SCOLONNA & Format2(COLONNE(K,J)) & " "
Next
Scrivi FormattaStringa(K,"000") & "....." & SCOLONNA
Next
End Sub
001.....01.02.03.04.
002.....01.02.04.03.
003.....01.03.02.04.
004.....01.03.04.02.
005.....01.04.02.03.
006.....01.04.03.02.
007.....02.01.03.04.
008.....02.01.04.03.
009.....02.03.01.04.
010.....02.03.04.01.
011.....02.04.01.03.
012.....02.04.03.01.
013.....03.01.02.04.
014.....03.01.04.02.
015.....03.02.01.04.
016.....03.02.04.01.
017.....03.04.01.02.
018.....03.04.02.01.
019.....04.01.02.03.
020.....04.01.03.02.
021.....04.02.01.03.
022.....04.02.03.01.
023.....04.03.01.02.
024.....04.03.02.01.
ciao condivideresti lo script? ne sarei interessatoVedi l'allegato 2294755
tom ho provato a calcolare il 31 a genova con gli algoritmi, vuoi vedere la tabella,
mi spiace ma la soddisfazione a quei quattro stronzi che hanno infangato il mio nome su questo forum
la risposta e negativa, lo script non lo condividerò con nessuno, e ne tantomeno le mie tabelle.