Matrices En Vb 6

Visual Basic 6
Características del lenguaje: Arrays
 
Revisión del 1/Sep/98

1.- Las funciones pueden devolver Arrays y los Arrays dinámicos se pueden asignar (1/Sep/98)
Los Arrays dinámicos, (es decir los que pueden cambiar el número de elementos), ahora se tratan de igual forma que las variables normales. Tanto las funciones como las propiedades pueden devolver arrays y se puede asignarun array a otro.
Veamos un par de ejemplos para "clarificar" esto:
Empezaremos asignando el contenido de un array a otro, los comentarios son lo suficientemente explicativos como para que lo entiendas, pero si no es así... (lo siento por tí... je, je)
De todas formas, te lo explico a grandes rasgos:
---Se declaran dos arrays dinámicos, (fíjate que no se le indica en la declaración el número deelementos que tendrá)
---En este ejemplo se han usado arrays de cadenas de caracteres, pero podrían ser de cualquier tipo, la única "obligación" es que los dos arrays deben ser del mismo tipo; es decir, no podemos asignar a un array de Strings, un array de Longs. Ni un array de Variant a un array de String, incluso si el contenido de los variants son cadenas; ya que Visual Basic producirá unerror si los dos arrays usados no se han declarado del mismo tipo... tampoco iba a ser perfecto...
---Se asignan de la misma forma que se hacen con las variables normales, no es necesario usar SET ni nada de eso.
---El array que recibe los datos, tendrá el mismo número de índices que el original y con la misma numeración... Osea, si un array se dimensiona de 3 a 5, el que recibe los datos, tambiénestaría dimensionado de 3 a 5; y daría error si se quisiera acceder a un elemento anterior o posterior... como en cualquier array normal.
'Asignar un array a otro
Private Sub cmdAsignarArrays_Click()
Dim Array1() As String
Dim Array2() As String
Dim i As Long'Dimensionamos el primer array,
'no es necesario indicar el elemento inferior.
'pero se puede usar cualquier valor, como se suele
'hacer con todos los arrays...
'...al fin y al cabo es un array.
ReDim Array1(1 To 10)

'Un bucle para recorrer el arrayrecién dimensionado
'Si sabemos los índices, se puede usar:
'For i = 1 To 10
'Si vas a probar, de esta forma sólo tendrás que cambiar
'los índices del ReDim
For i = LBound(Array1) To UBound(Array1)
'Le asignamos unos elementos de prueba
Array1(i) ="Elemento " & i & " del array"
Next

'Asignamos al segundo array el contenido del primero
Array2 = Array1
'Lo mostramos en un Listbox
With List1
.Clear
'Si sabemos los valores iniciales y finales,'podemos usarlo, pero de esta forma, siempre
'tomaremos los elementos correctos del array
For i = LBound(Array2) To UBound(Array2)
'Lo añadimos al ListBox, para ver que "funciona"
.AddItem "En Array2: " & Array2(i)
Next
End WithEnd Sub
Continuamos asignando a un array lo que devuelve una función.
También está comentado, pero un poco de explicación aclarará cualquier duda...
Lo primero es crear una función que devuelva un array:
---La declaración es igual que una función normal, la única diferencia, entre otras cosas para que el Visual Basic sepa que estamos tratando con una función especial, es usar un...