Private Sub Form_Load() Me.ScaleMode = 1 Me.AutoRedraw = True Dim x As Single, i As Integer, m As Integer, h As Integer, w As Integer h = Me.ScaleHeight / 2 w = Me.ScaleWidth / 2 'h、w值为圆心 m = w If h < w Then m = h m = m - 60 'm为原的半径 Circle (w, h), m For x = 0 To 8 * Atn(1) Step 0.001 PSet (m / 3 * (2 * Cos(x) + Cos(2 * x)) + w, m / 3 * (2 * Sin(x) - Sin(2 * x)) + h) ' PSet (m * 2 / 3 * Cos(x) + m / 3 * Cos(2 * x) + w, m * 2 / 3 * Sin(x) - m / 3 * Sin(2 * x) + h) Next End Sub
[此贴子已经被作者于2020-6-1 14:24编辑过]