Cómo compilar una pirámide digital en VB

Private Sub Form_Click()

Atenuar i como entero, j como entero

Para i = 1 a 9

Si i lt ; = 5 Entonces

Imprimir Espacio(5 - i);

Para j = 1 Para (i - 1) * 2 1

Si j = ( i - 1) * 2 1 Entonces

Imprimir CStr(i)

Si no

Imprimir CStr(i);

Finalizar si

Siguiente j

Else

Imprimir espacio(i - 5

Para j = 1 A (10 - i - 1); ) * 2 1

Si j = (10 - i - 1) * 2 1 Entonces

Imprimir CStr(i)

De lo contrario

Imprimir CStr(i);

Finalizar si

Siguiente j

Finalizar si

Siguiente i

'Haga clic en cualquier lugar de la ventana

End Sub