respuestas del tutorial de programación vb

Opción explícita

Subcomando privado1_Click()

Atenuar a() como entero

Atenuar i, j, n

ReDim a(9, 9)

Para i = 1 a 8

Imprimir pestaña(25 - i * 2);

Para j = 1 A i

a(i, 1) = 1

a(i, i) = 1

a(i + 1, j + 1 ) = a(i, j) + a(i, j + 1)

Imprimir a(i, j);

Siguiente j

Imprimir

Siguiente i

Fin Sub