La programación VB genera una matriz unidimensional A (20) y la genera en forma de cuatro filas y cinco columnas.

Método 1:

Sub Form_click() privado

Atenuar A(1 a 20) como entero

Para i = 1 a 20

A(i) = Int(Rnd * 100 + 1)

Imprimir A(i),

Si i Mod 5 = 0 Entonces imprimir

Siguiente i

End Sub

Método 2:

Sub privado Form_click()

Atenuar A(1 A 20) Como Entero

Para i = 1 A 20

A(i) = Int(Rnd * 100 + 1)

Imprimir Tab(8 * n + 2); A(i);

n = n + 1

Si n = 5 Entonces n = 0

Siguiente i

Fin del subtítulo