Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo escribir código para una estrella de cinco puntas con un asterisco usando vb

Cómo escribir código para una estrella de cinco puntas con un asterisco usando vb

Sub?ss()

x1?=?20:?y1?=?0

x2?=?1:?y2?=?7

x3?=?39:?y3?=?7

x4?=?8:?y4.=?18

x5?=?32:?y5.=?18

Para?i?=?0?A?6

Para?j?=?0?A?40

Para?i?=?0 ?A?6

Para?j?=?0?A?40

Si?j?-?x4?gt;=?(x1?-?x4)?* ?(i?-?y4)?/(y1?-?y4)?Y?j?-?x5?lt;=?(x1?-?x5)?*(x1?-?x5)?(i? -?y5)?/? (y1?-?y5)?Entonces

Depurar.Imprimir?"*";

De lo contrario

Depurar.;

¿Fin?Si

Siguiente

Depurar.Imprimir

Siguiente

¿Para?i?=?7? A?18

Para?j?=?0?A?40

Si?(j?-?x5?gt;=?(x2?-?x5)?* ?(i?-?y5)?/(y2?-?y5)?Y?j?-?x5?lt;=?(x1?-?x5)?*(x1?-?x5)?(i? -?y5)?/?(y1?-?y5))?O?(j?-?x4?gt;=?(x1?-?x4)?*?(i?-?y4)?/(y1 ?-?y4)?Y?j?-?x4?lt;=?(x3?-?x4)?*?(i?-?y4)?/(y3?-?y4))?Entonces

¿Depurar.Imprimir?"*";

Si no

¿Depurar.Imprimir?";

¿Fin?Si

Siguiente

Depurar.Imprimir

Siguiente

¿Fin?