Cómo imprimir un patrón en forma de corazón usando vb. Utilice "*" para imprimir. ¡Esperando en línea!
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Width = 5000
Me.Height = 5500
Yo. ForeColor = vbRed
Me.FontSize = 12
Me.Scale (-10 10)-(10.FontSize = 12
Me.Scale (-10 , 10)-(10, -10)
Para i = 0 a 3.1415926 Paso 0.2
CurrentX = -Cos(i) * 4 - 4
ActualY = Sin(i) * 4 + 3
Imprimir "*"
ActualX = Cos(i) * 4 + 4
ActualY = Sin(i ) * 4 + 3
Imprimir "*"
Siguiente i
Para i = 0 a 8 Paso 0.5
CurrentX = 8 - i
ActualY = -i + 2
Imprimir "*"
ActualX = i - 8
ActualY = -i + 2
Imprimir "*"
Siguiente i
Fin Sub