您所在位置：主题：编一个简简单单的蝴蝶结吧。
大灰狼的窝
[专家分：20] 发布于 2002-10-11 00:16:00
一个简单的蝴蝶结就是这样生成的：
Private Sub Form_Click()
Scale (-1, -1)-(1, 1)
DrawWidth = 2
ForeColor = vbRed
For t = 0 To 2 * 3.1415926 Step 0.001
x = Sin(2 * t) * Cos(t)
y = Sin(2 * t) * Sin(t)
PSet (x, y)
Next t
End Sub
Private Sub Form_Click()
Scale (-1, -1)-(1, 1)
DrawWidth = 2
ForeColor = vbRed
For t = 0 To 2 * 3.1415926 Step 0.001
x = Sin(2 * t) * Cos(t)
y = Sin(2 * t) * Sin(t)
PSet (x, y)
Next t
End Sub
