Perchè non mi ripropone i numeri in modo ordinato?

[lotto_tom75]

        Dim Ordinanumeri
            
            Ordinanumeri = Array  (0,numeri(x,2))
            
            Dim contanum
            
          Call OrdinaMatrice(Ordinanumeri,1)  
            
            For  contanum = 1 To UBound(Ordinanumeri)
            
            Scrivi "num in array: " & Ordinanumeri(contanum)
            
            Next
            
            Scrivi

me li scrive tutti ma in ordine di rilevamento mentre io li vorrei riproposti in output in ordine crescente ad esempio...

?

 

[i legend]

Dim aNum: aNum=array(0,5,2,1,3,8,9)
Call ordinamatriceturbo (aNum,1)
Dim i
For i =1 to ubound (aNum)
Scrivi aNum(i)
Next
Prova così.
Ciao

 

[i legend]

Il tuo ordina numeri contiene solo un elemento

 

[lotto_tom75]

Il tuo ordina numeri contiene solo un elemento

No legend il vettore si popola correttamente con un ciclo ma appunto non mi escono in modo ordinato ?. La struttura è identica a quella che mi hai proposto tu. Non capisco... E' come se "non li sentisse" come valori ordinabili...

 

[claudio8]

Tom controlla bene lo script .
Domani ti saprò dire meglio.
Notte.

 

[lotto_tom75]

Tom controlla bene lo script .
Domani ti saprò dire meglio.
Notte.

Ok grazie claudio 'notte

 

[i legend]

aNum=array(0,5,2,1,3,8,9) contiene 6 elementi
‐--------------------
Ordinanumeri = Array (0,numeri(x,2)) contiene 1 elemento
Anche con il ciclo
'For x =1 ti 100
Dai 1 numero per volta
Ordinanumeri = Array (0,numeri(1,2))
Ordinanumeri = Array (0,numeri(2,2))

Ordinanumeri = Array (0,numeri(3,2))
'Next

 

[claudio8]

A me funziona correttamente il costrutto di I legend

Dim aNum: aNum=array(0,5,2,1,3,8,9)
Call ordinamatriceturbo (aNum,1)
Dim i
For i =1 to ubound (aNum)
Scrivi aNum(i)
Next

Nel tuo costrutto
Ordinanumeri = Array (0,numeri(x,2)) contiene il valore zero ed il valore numeri(x,2) dove "x" sta per variabile che sicuramente ha il valore max +1 dell'ultimo ciclo in cui la hai usata
così come dice I Legend poichè il valore 0 non viene considerato nell'ordinamento la array contiene un solo valore.
se provi a far girare questo costrutto simile al tuo:
Sub Main
Dim Ordinanumeri
Ordinanumeri = Array (0,4)
Dim contanum
Call OrdinaMatrice(Ordinanumeri,1)
For contanum = 1 To UBound(Ordinanumeri)
Scrivi "elenco numeri presenti in array: " & Ordinanumeri(contanum)
Next
End Sub
verdai che funge

ricontrolla lo script.
prendi un e vedrai che tutto si risolve
ciao