Per Joe, Mike58, ILegend, Djnomade, Enplein ecc...

[salvo50]

Non riesco a visualizzare i 36 ambi risultanti in orizzontale

Option Explicit
Sub Main
 
   Dim k,e,s
   Dim nClasse
   ReDim aNumeri(9)
   Dim aColonne
   nClasse = 2 ' sviluppo in ambi
   aNumeri(1) = 36
   aNumeri(2) = 42
   aNumeri(3) = 57
   aNumeri(4) = 63
   aNumeri(5) = 78
   aNumeri(6) = 84
   aNumeri(7) = 09
   aNumeri(8) = 15
   aNumeri(9) = 21
   aColonne = SviluppoIntegrale(aNumeri,nClasse)
   For k = 1 To UBound(aColonne)
      s = ""'  s = FormatSpace (k,10,True) & "- "
      For e = 1 To nClasse
         s = s & Format2(aColonne(k,e)) & " "
      Next
      Call Scrivi(s)
   Next
End Sub

 

[Lottopython]

senza offesa ,spero vada bene.

Option Explicit

Sub Main()
  
   Dim k, e, s
   Dim nClasse
   ReDim aNumeri(9)
   Dim aColonne
   nClasse = 2 ' sviluppo in ambi
   aNumeri(1) = 36
   aNumeri(2) = 42
   aNumeri(3) = 57
   aNumeri(4) = 63
   aNumeri(5) = 78
   aNumeri(6) = 84
   aNumeri(7) = 9
   aNumeri(8) = 15
   aNumeri(9) = 21
   aColonne = SviluppoIntegrale(aNumeri, nClasse)
   
   Dim ambi
   ambi = ""
   
   If IsArray(aColonne) Then
       Scrivi "Elenco degli ambi:"
       For k = 1 To UBound(aColonne, 1) ' Assicurati di specificare la dimensione corretta
          s = ""
          For e = 1 To nClasse
             s = s & Format(aColonne(k, e)) & " "
          Next
         
          ' Accumula gli ambi nella stringa "ambi" separati da spazi
          'ambi = ambi & s ' Questo accumula tutto in una riga
          Scrivi s ' Invece, scrivi ogni ambo su una nuova riga
       Next
   Else
       Scrivi "Nessun ambo generato."
   End If
   
   ' Stampa tutti gli ambi in orizzontale
   'Scrivi ambi 'Non necessario se stampi ogni ambo su una nuova riga
End Sub

' *** ATTENZIONE: Queste sono implementazioni di esempio. ***
' *** Sostituiscile con le tue implementazioni reali ***

' Funzione di esempio per lo sviluppo integrale
Function SviluppoIntegrale(aNumeri, nClasse)
    Dim result()
    Dim numCombinazioni, i, j, count ' Dichiarazione delle variabili

    numCombinazioni = (UBound(aNumeri) * (UBound(aNumeri) - 1)) / 2 ' Calcola il numero di combinazioni

    ReDim result(numCombinazioni, nClasse) ' Ridimensiona l'array in base al numero di combinazioni

    count = 1
    For i = 1 To UBound(aNumeri) - 1
        For j = i + 1 To UBound(aNumeri)
            result(count, 1) = aNumeri(i)
            result(count, 2) = aNumeri(j)
            count = count + 1
        Next
    Next

    SviluppoIntegrale = result
End Function

' Funzione di esempio per formattare un numero con due cifre
Function Format(num)
    If num < 10 Then
        Format = "0" & num
    Else
        Format = num
    End If
End Function

 

[claudio8]

Option Explicit
Sub Main
Dim k,e,s
Dim nClasse
ReDim aNumeri(9)
Dim aColonne
nClasse = 2 ' sviluppo in ambi
aNumeri(1) = 36
aNumeri(2) = 42
aNumeri(3) = 57
aNumeri(4) = 63
aNumeri(5) = 78
aNumeri(6) = 84
aNumeri(7) = 09
aNumeri(8) = 15
aNumeri(9) = 21
aColonne = SviluppoIntegrale(aNumeri,nClasse)
For k = 1 To UBound(aColonne)
s = ""' s = FormatSpace (k,10,True) & "- "
For e = 1 To nClasse
s = s & Format2(aColonne(k,e)) & " "
Next
Call Scrivi(s & "- ",,False)
Next
End Sub

ecc... Cl8​

 

[salvo50]

Per Lottopython
non li scrive in orizzontale
Grazie lo stesso




Per Claudio8

Grande Claudio Grazie

 

[claudio8]

Caro Salvo le funzioni presenti in "Spazioscript" che LuigiB ha creato, ivi compresa "Scrivi", ti danno la possibilità di specificare parametri dedicati per migliorarne l'uso o utilizzo...
E' chiaro che conoscerne la loro costruzione ( vedi esempi di funzioni scritte da Lottopython ) amplia la conoscenza nell'uso degli script e ti aiuta a crearne di nuove con specificità per tue ricerche.

Caio