Estoy buscando urgentemente orientación experta sobre un tema de VB: utilice una declaración de bucle para generar un diamante digital. La primera línea es un "1", la segunda línea son dos "2"... y así sucesivamente.

El diamante digital no es como el tuyo. El siguiente código es un diamante digital. No entiendo lo que escribiste.

Private Sub Form_Click()

Atenuar i como entero, j como entero

Para i = 1 a 9

Imprimir espacio(Abs(5 - i));

Para j = 1 A (2 * (5 - Abs(5 - i)) - 1)

Imprimir CStr(i);

Siguiente

Imprimir

Siguiente

Fin Sub