vb pirámide digital

Private Sub Form_Click()

Atenuar i como entero, m como entero, n como entero

Para i = 1 a 9

Imprimir Tab(9 - i 1);

For m = 1 Para i

Imprimir CStr(m);

Siguiente m

Para m = 1 A i - 1

Imprimir CStr(i - m);

Siguiente m

Imprimir

Siguiente i

Fin del sub