VB6 - FUNZIONE STAMPA CONTENUTO ARRAY / VETTORE 

Stampa il contenuto dell'Array o di un Vettore in Visual Basic 6 / VB6 :

Questa funzione serve per stampare il contenuto in un Array Grande arbitrariamente, con la funzione UBound(), calcola quanto è grande l'Array .

FUNZIONE STAMPA CONTENUTO ARRAY / VETTORE :  

Private Function StampaVettore(ByRef v() As Integer)
Dim Max As Integer
Max = UBound(v) 'Grandezza del vettore

'Stampa il vettore caricarto da elementi
For j = 0 To Max
        Debug.Print "Vettore(" & j & " )= " & v(j)
Next
End Function

Private Sub Form_Load()
Dim Vettore() As Integer

Dim MaxVettore As Integer
MaxVettore = 5 'Massimo Grandezza Vettore

'Ricalcolo grandezza del vettore
ReDim Vettore(0 To MaxVettore) As Integer

'Carico Vettore Tramite il ciclo di FOR per semplicità
For i = 0 To MaxVettore
        Vettore(i) = i 'Carico l'elemento i nel vettore nella posizione i
Next

'Richiamo la funzione stampa
        Call StampaVettore(Vettore)
End Sub