¿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 & "*"
Siguiente
strTemp = Espacio(Abs(i)) & strXing & Espacio(Abs(i) )
Imprimir strTemp
Siguiente
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