Red de conocimiento informático - Problemas con los teléfonos móviles - Vb genera el siguiente paralelogramo.

Vb genera el siguiente paralelogramo.

Subcomando privado 1_Click()

Imprimir "Ingrese el número de líneas:";

n = CInt(InputBox("N= "))

Imprimir

Para i = 1 a n

Imprimir tab(2 *(n+1-I));

Si i = 1 o i = n, Luego

Para j = 1 a n

Imprimir "*";

Siguiente j

Otros

Imprimir "*"; Espacio (2 * n-4); "*";

Terminará si...

Imprimir

Siguiente I

Conector final