马上520了，简单分享n年前基于vb6写的demo

Const pai As Double = 3.14159265358979

Private Sub Form_Click()
On Error Resume Next
Dim x As Double
    Rem ==============构建坐标系
    Me.Scale (-5, 3)-(5, -3)
    Me.Line (-5, 0)-(5, 0), vbBlue
    Me.Line (0, -3)-(0, 3), vbBlue
    Rem ======================
    For x = -2 To 2 Step 0.00001 '步长决定运行次数 & 心型浓密程度 & 运行时间
        DoEvents
        Me.PSet (x, (x ^ 2) ^ (1 / 3) + (3.3 - x ^ 2) ^ (1 / 2) * Sin(20 * pai * x)), &HFF80FF
    Next
    
    For x = -2 To 2 Step 0.00001 '步长决定运行次数 & 心型浓密程度 & 运行时间
        DoEvents
        Me.PSet (x, (x ^ 2) ^ (1 / 3) + (3.3 - x ^ 2) ^ (1 / 2) * Sin(20 * pai * x)), vbRed
    Next
End Sub

啥意思我忘了，好像是基于实现一个公式。。。