Uso de emergencia de VB para generar un problema de matriz 3*3
Private Sub Command1_Click()
Atenuar i como entero, j como entero, s como entero, A(2, 2) como entero
Para i = 0 a 2
Para j = 0 a 2
Aleatorizar
A(i, j) = Int(Rnd * 100)
Imprimir A(i, j );
Si j lt; = i Entonces s = s A(i, j)
Siguiente j
Imprimir
Siguiente i
Imprimir "S="; s
Fin Sub