Gestione di una coda mediante array in modo circolare

Avendo un array, si effettua su di esso un'operazione in modo circolare, cosicché l'ultimo elemento vada in testa spostando gli altri elementi di una posizione all'interno dell'array medesimo. Si otterrà, così, un effetto rotatorio degli elementi presenti nell'array.

Facciamo l'esempio di un array di quattro elementi:

Private a As New Byte[]


Public Sub Form_Open()

 Dim j As Byte
 
' Impostiamo l'array di quattro elementi:
 For j = 0 To 3
   a.Add(10 * j)
   Print a[j]
 Next

End


Public Sub Button1_Click()

 Dim j As Byte

' E' sufficiente aggiungere all'indice 0, ossia in testa, il valore dell'ultimo elemento:
   a.Add(a[3], 0)
 
 For j = 0 To 3
   Print a[j]
 Next
 
End