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