Red de conocimientos turísticos - Conocimientos sobre calendario chino - Utilice instrucciones de bucle VB para generar las siguientes formas respectivamente.

Utilice instrucciones de bucle VB para generar las siguientes formas respectivamente.

Lo más difícil es el primer gráfico, el código es el siguiente:?

Subform_Load privado()

Formulario 1. Mostrar

Atenuar Att como cadena

Para i = 0 a 8

Att = Cadena(i * 2 + 1, " * ")

Imprimir espacio (9 - i) y ampAtt

Luego

Para i = 8 a 1 paso - 1

Att = String(i * 2 - 1, " * ")

Espacio de impresión (10 - i)ampAtt

Luego

Finalizar ajuste

Formulario 1. Mostrar

Atenuar Att como cadena

Para i = 0 a 8

Att = Cadena(i * 2 + 1, " * ")

Imprimir espacio (9 - i) y ampampAtt

Luego

Para i = 9 a 0 paso -1

Att = String(i * 2 + 1, " * ")

Imprimir espacio (9 - i) y ampampAtt

Luego

Segundo gráfico

Subform_Load privado( )

Formulario 1. Mostrar

Atenuar Att como cadena

Para i = 0 a 8

Att = Cadena(i * 2 + 1, " * ")

Imprimir espacio (9 - i) y ampAtt

Luego

Finalizar tercer gráfico secundario

Subform_Load privado()

Formulario 1. Mostrar

Dim Att como cadena

Para i = 0 a 9

Imprimir cadena(10, "*")

Luego

Conector final

Cuarto número

Subform_Load() privado

Form1. Mostrar

Dim Att como cadena

Para i = 0 a 8

Imprimir cadena (i + 8, "*")

Luego

Conector final

上篇: Diez patrones clásicos de línea K con inversión de fondo 下篇: Cómo usar el teléfono con cámara de Qiao An