Programación VB Cómo desplazar circularmente 10 elementos en una matriz unidimensional hacia la izquierda en n bits

dim vArray(0 a 100) 'Si esta es la matriz que desea mover

'Llame a esta función (proceso) para desplazar circularmente n bits.

sub ArrayMLeft privado(byval n tan largo)

dim i mientras, j mientras

dim U mientras, L mientras

dim vTemp

U=ubound(vArray) 'U es el límite superior de la matriz

L=lbound(vArray) 'L es el límite inferior de la matriz

para j =1 a n

vTmp=vArray(L) 'Registra el primer elemento

para i=L a U-1

vArray(i)= vArray(i+1) 'Cada unidad COPIA la unidad i+1

siguiente i

vArray(U)=vTmp 'Asigna el primer elemento a el último Unidad de matriz

siguiente j

end sub

La ventaja de esta función (proceso) es que es más legible, pero la desventaja es que es menos eficiente. Espero que pueda comprender el significado aquí, mejorarlo de acuerdo con la situación real y dejar que cicle solo una vez para obtener el resultado final.