¿Cómo crear un triángulo invertido con un signo "*" en VB?

Puedes consultar el siguiente código:

Private Sub Command1_Click()

Dim i As Long, j As Long

Dim strTemp como cadena, strXing como cadena

Para i = 0 a 3

strXing = ""

Para j = 1 a (7 - Abs(i) * 2 )

strXing = strXing & "*"

strTemp = Espacio(Abs(i)) & strXing & Espacio(Abs(i) )

Imprimir strTemp

End Sub

Información ampliada:

Formato del bucle For en VB :

Variable de bucle For = valor inicial Al valor final [Paso paso] el paso 2 es i=i+2

[cuerpo del bucle]

Siguiente [bucle variable ]

Nota:

1. Cuando el tamaño del paso > 0

Condiciones para la ejecución del bucle: variable del bucle <= valor final

2. Cuando el tamaño del paso < 0

Condiciones para la ejecución del bucle: variable de bucle >= valor final

Para salir forzosamente del bucle For, utilice Exit For.

Enciclopedia Baidu-Visual Basic