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
    giovedì 27 novembre 2025
    Bari
    30
    06
    24
    65
    34
    Cagliari
    03
    65
    15
    77
    79
    Firenze
    04
    74
    10
    45
    18
    Genova
    32
    21
    45
    81
    48
    Milano
    25
    05
    15
    78
    86
    Napoli
    34
    49
    52
    16
    05
    Palermo
    01
    66
    76
    19
    11
    Roma
    60
    16
    79
    22
    21
    Torino
    07
    31
    23
    14
    83
    Venezia
    75
    09
    06
    34
    31
    Nazionale
    64
    12
    18
    30
    88
    Estrazione Simbolotto
    Torino
    11
    43
    35
    33
    19

Ultimi Messaggi

Indietro
Alto