¿Cómo utilizar el programa VB para generar una pirámide de letras? Sólo se utiliza en declaraciones de bucle.
¿Privado? ¿Sub? form_click()
¿Atenuado? ¿Conteo de símbolos? ¿Como? ¿Entero? El número máximo de símbolos de salida, es decir, el número de letras o símbolos en la parte inferior.
¿Oscuro? ¿Recuento de espacios? ¿Como? Número de espacios a la izquierda de un número entero
¿Dim? ¿Espacio de salida? ¿Como? "Cadena" contiene el espacio izquierdo que se generará.
¿Oscuro? ¿Símbolos de salida? ¿Como? ¿Cadena? Guarde los caracteres que se generarán y los espacios entre ellos.
¿Oscuro? I,? j? ¿Como? Entero
¿SímboloContar? =?5 'Establece la altura de la pirámide en 5 niveles, y el símbolo de salida en la parte inferior es exactamente 5.
¿Cuenta el espacio? =?(SymbolCount?*?2?-?1)?/?' 2 'El valor inicial del número de espacios a la izquierda es igual a la mitad del número de caracteres mostrados en la parte inferior + los espacios entre caracteres.
¿Símbolos de salida? =?"*"
¿Espacio de salida? =?""
¿Para qué? ¿I? =?1?¿Adónde ir? ¿Recuento de espacios? Calcule el número de espacios que se generarán a la izquierda de la primera línea.
¿Espacio de salida? =?Espacio de salida? y amplificador? "?"? Número acumulado de espacios
¿Siguiente? Yo
¿Para qué? ¿I? =?1?¿Adónde ir? Recuento de símbolos
¿Imprimir? ¿Espacio de salida? y amplificador? ¿Símbolos de salida? Genere el resultado del cálculo para esta fila.
¿Y si? ¿Recuento de espacios? >? ¿0? Entonces
¿recuento de espacios? =?recuento de espacios? -?1
¿Fin? Si
espacio de salida? =?izquierda(espacio de salida,SpaceCount)? Espacio izquierdo, la siguiente línea es un espacio menos que la línea anterior.
¿Símbolos de salida? =?Símbolos de salida? y amplificador? "?*"?La siguiente línea tiene un espacio más y un asterisco más que la línea anterior.
¿Siguiente? Yo
¿Terminar? Submarino