Draw an egg(2)

It's also easy to draw an egg with the curve y^2=(sin(x)*(1+cos(x)/π)).   Private Sub Form_Click()Me.Caption = "Draw an egg"Dim pi As Single, X As Singlepi = 4 * Atn(1)Me.Scale (-1, -2)-(4, 2)For X = 0 To pi Step 0.0005Me.Circle (X, -Sqr(Sin(X) * (1 + Cos(X) / pi))), 0.01, vbWhiteMe.Circle (X, Sqr(Sin(X) * (1 + Cos(X) / pi))), 0.01, vbWhiteNextEnd Sub

 

 

It returns:

 

相关资源：敏捷开发V1.0.pptx