Un aiuto a tutti gli scriptologi

[Matematico]

Buon sabato a tutti,

Chiedo una cortesia x uno script ....sapendo che con 10 numeri si formano 252 cinquine

CHIEDO A TUTTI GLI SCRIPTOLOGI SE POTRESTE AIUTARMI IN UN LISTATO
MI SPIEGO:

CON L AIUTO DI UN INPUT BOX DOVREI INSERIRE I 10 NUMERI SCELTI E IL LISTATO DOVREBBE
CALCOLARMI LO SVILUPPO DELLE 252 CINQUINE..



GRAZIE IN ANTICIPO

BUON WEKEEND A TUTTI

 

[lotto_tom75]

Sinceramente la tua richiesta mi stupisce un pò

Ad ogni modo per il semplice listato che cerchi dovrebbe bastarti questo...

Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i

'Script by lotto_tom75 x generare semplicemente e integralmente tutte le classi integrali desiderate partendo dal gruppo numerico desiderato. Limite di classe 20

'Lo script non genera alcun pronostico. Serve solo a generare le formazioni desiderate.

'Per le classi maggiori di 3 elementi potrebbe impiegare moltissimo tempo e quindi è nettamente sconsigliabile utilizzarlo per gruppi numerici corposi e classi elevate.

'Per classi di formazione elevate dalla 4ina alla 20ina (limite max di sviluppo integrale insito nel programma) è consigliabile non operare con gruppi numerici superiori ai 22 elementi.  

ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)


Classe = 5


coltot = InitSviluppoIntegrale(anum,Classe)



If coltot > 0 Then


Do While GetCombSviluppo(acol) = True


i = i + 1



Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) )




Call AvanzamentoElab(1,coltot,i)



Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Loop
End If
End Sub

Ciao



Ps: Ovviamente se in output vuoi solo i numeri (come credo...) basta che sostituisci...

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) )

con

Call Scrivi(StringaNumeri(acol) )

 

[Matematico]

Ti ringrazio lotto_tom75, gentilissimo
In effetti la mia può sembrare una richiesta strana ...ma a me serve questo calcolo x applicare un mio metodo inedito.
Appena lo testerò x bene posterò le previsioni di esso.

Buona serata

 

[lotto_tom75]

Ti ringrazio lotto_tom75, gentilissimo
In effetti la mia può sembrare una richiesta strana ...ma a me serve questo calcolo x applicare un mio metodo inedito.
Appena lo testerò x bene posterò le previsioni di esso.

Buona serata

Non c'è di che matematico