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.