Matriz de programación Vb

¿privado? ¿Sub? Command1_Click()

¿Hacer irregular

¿Atenuar? Uno(5,?5)?como? Entero

¿Imprimir? "La secuencia de resultados es:"

¿Para qué? ¿I? =?1?¿Adónde ir? Cinco

¿Para qué? j? =?1?¿Adónde ir? Cinco

a(I,?j)? =?Int(10?*?Rnd)

s? =?s? ?a(i,?j)

Si? a(yo,?j)? ¿gt? 0? ¿Entonces qué? ¿norte? =?n? ?1

¿Imprimir? a(i,?j);

¿Siguiente? j

Imprimir

¿Siguiente? ¿Yo

imprimo? La suma de valores distintos de cero es: "";? s;? "Uno * * *tiene";? norte;? "A"

¿Fin? Submarino