vb Matrix 3X3, solicitó código para que se vea así

Opción Base 1

Atenuar a(9) como entero, b(9) como entero

Subcomando privado1_Click()

Aleatorizar

Imagen1. De lo contrario

Imagen1.Imprimir a(i);

Finalizar si

b(i ) = a(i)

Siguiente i

Para i = 1 a 8

Si a(i) lt a(i 1) Entonces

t = a(i)

a(i) = a(i 1)

a(i 1) = t

Fin si

Siguiente i

Imagen 2.Imprimir "El número más pequeño en la fila" amp pp amp; "fila 1" amp "uno"

Finalizar si

Siguiente i

Fin Sub

Sub privado Form_Load()

Imagen1.

Imagen2. AutoRedraw = Verdadero

End Sub.