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 24 gennaio 2026
    Bari
    26
    24
    81
    30
    32
    Cagliari
    84
    81
    48
    08
    49
    Firenze
    64
    30
    70
    12
    89
    Genova
    76
    71
    63
    88
    27
    Milano
    01
    28
    09
    06
    90
    Napoli
    74
    26
    50
    76
    24
    Palermo
    09
    75
    88
    65
    13
    Roma
    66
    13
    21
    65
    73
    Torino
    78
    02
    90
    51
    16
    Venezia
    23
    55
    60
    47
    17
    Nazionale
    14
    70
    74
    68
    20
    Estrazione Simbolotto
    Bari
    09
    18
    15
    38
    39
Indietro
Alto