Novità

Superenalotto

Al posto del For-Next metti scegli numeri

Codice:
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
 
Codice:
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.

ok salvo lo script non da nessun errore,grazie mille..
 
9902.png
[GE] [76 .. .. .. ..] C. 1 Estratto 02447 [17/12/2024] [76.81.54.22.30]
 
Ultima modifica:
Vorrei segnalare che stasera ,come da segnalazione di zetrix ,le 5 sestine Fibonacci con il ritardatario 30 hanno ottenuto 3 due ......e stavolta le avevo giocate:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 giugno 2026
    Bari
    79
    44
    34
    76
    86
    Cagliari
    16
    76
    87
    84
    37
    Firenze
    70
    35
    43
    72
    04
    Genova
    38
    59
    06
    79
    55
    Milano
    40
    68
    61
    88
    83
    Napoli
    37
    61
    90
    22
    14
    Palermo
    31
    45
    90
    44
    26
    Roma
    72
    04
    06
    41
    23
    Torino
    65
    62
    34
    06
    86
    Venezia
    34
    64
    59
    49
    71
    Nazionale
    07
    25
    36
    38
    08
    Estrazione Simbolotto
    Napoli
    45
    41
    35
    11
    09

Ultimi Messaggi

Indietro
Alto