Red de conocimiento informático - Conocimiento de la instalación - Utilice VB para marcar la estrella, ¡urgente! ! !

Utilice VB para marcar la estrella, ¡urgente! ! !

Subcomando privado1_Click()

Dim n, i, j

n = 4 'Tantas líneas como quieras

Para i = 1 To n

Para j = 1 To n - Abs(i - 2) - 2

Imprimir espacio(1);

Siguiente

Imprimir "*";

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

Imprimir espacio(1);

Siguiente

Si i lt;gt; 2 Entonces imprime "*";

Imprimir

Siguiente

Fin Sub

上篇: Por favor recomiende algunos buenos dramas americanos~~~ 下篇: Todos los álbumes de Liang Jingru, incluidas las colecciones y las canciones de cada álbum (según la época)