Programación VB para escribir un subprocedimiento sin parámetros Triángulo

'Generar cualquier estrella triangular de fila

Sub Triángulo (Filas)

Dim i como entero, j como entero

Para i = 1 a filas

Imprimir espacio(Filas - i + 1);

Para j = 1 a i * 2 - 1

Imprimir "*";

Siguiente

Imprimir

Siguiente

End Sub

'Puedes usar un botón para llamar al procedimiento Triángulo

Subcomando privado1_Click()

Triángulo 10 'Generar 10 líneas

'Llamar método dos Llamar triángulo(10)

Fin Sub