Cómo imprimir un estuche en forma de corazón usando vb, ¡use "*" para imprimir en línea!

i. AutoRedraw = Verdadero

i. ancho = 5000

i. altura = 5500

i. ForeColor = vbRed

i. Tamaño de fuente = 12

i. Lugares decimales (-10, 10) - (10, -10)

Para i = 0 a 3,1415926 en pasos de 0,2

CurrentX = -Cos(i) * 4 - 4

ActualY = Sin(i) * 4 + 3

Imprimir "*"

ActualX = Cos(i) * 4 + 4

CurrentY = Sin(i) * 4 + 3

Imprimir "*"

Siguiente i

Para i = 0 a 8, el tamaño del paso es 0.5

ActualX = 8 - i

ActualY = -i + 2

Imprimir "*"

ActualX = i - 8

ActualY = -i + 2

Imprimir "*"

Siguiente yo

Finalizar conector