Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo generar esta imagen en vb

Cómo generar esta imagen en vb

Private Sub Command1_Click()

Para i = 1 a 4

Imprimir cadena(10 - 2 * i - 1, " ");

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

Imprimir Chr(64 j);

Siguiente j

Imprimir

Siguiente i

Para i = 3 a 1 Paso -1

Imprimir cadena(10 - 2 * i - 1, " ");

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

Imprimir Chr(64 j);

Siguiente j

Imprimir

Siguiente i

Fin Sub

上篇: Solución al problema que aparecen opciones en blanco en el cuadro de selección de palabras al escribir usando el método de entrada Quanpin en el sistema WinXp 下篇: Análisis del código fuente Ts