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