Cómo devolver un valor de matriz a través de una función en VBS, espero que puedas dar un ejemplo. Gracias

A continuación se muestra un ejemplo sencillo de cómo devolver una matriz dentro de un procedimiento de función.

X=GetArr(9)' llama al procedimiento GetArr y devuelve una matriz de 10 (0-9) elementos, que se asigna a x.

For i = 0 To UBound(x)' enumera la matriz que acaba de devolver.

arrstr = arrstr amp" GetArr(" amp;i amp")" ampx(i) y ampvbCrLf

Luego

Msgbox arrstr 'Muestra el resultado.

Función GetArr(x)

ReDim f(x)' ajusta dinámicamente el tamaño de la matriz según las variables.

Para i = 0 a x

F(i)= rnd 'Generar una variable aleatoria.

Luego

Asigne la matriz GetArr=f ' al valor de retorno.

Finalizar función