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?