第十题。。。求大神

有米有大神给个代码呀。。。

这并不是立体图像，只是2D图像而已，照着函数把一个一个点绘出来即可

连函数都不会。。。。双重for就搞定了

Dim gr As Graphics = Me.CreateGraphics
gr.TranslateTransform(200, 200)
gr.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
Me.DoubleBuffered = True
For i = 0 To 30 Step 1
Dim gg = gr.Save()
gr.RotateTransform(i)
For a = 0 To 2 * PI Step 0.005
Dim x As Single = 100 * (1 + Sin(4 * a)) * Cos(a)
Dim y As Single = 100 * (1 + Sin(4 * a)) * Sin(a)
Dim ColorCurr As Color = Color.Black
gr.DrawEllipse(New Pen(ColorCurr, 1), New Rectangle(x, y, 1, 1))
Next
gr.Restore(gg)
Next
以上这段代码不包括颜色，只生成黑色的图案，需要颜色的话 ，我再发出来