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]

Bene

 

[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