Private Sub Command1_Click()
Dim u As Single, X As Single, Y As Single, c As Double, b As Double
Const pi As Single = 3.14159
b = pi / 180

'建立坐标
Picture2.ScaleMode = 0
Picture2.Width = 6000
Picture2.Height = 4000
Picture2.Line (0, 2000)-(ScaleWidth, 2000)
Picture2.Line (3000, 0)-(3000, ScaleHeight)
   For c = 0 To 79.84 Step 0.5
        u = c * b
        X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Cos(u)
        Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Sin(u)
      
        Picture2.PSet (X, Y), vbRed
    Next
    For c = 79.85 To 110.32 Step 0.5
        u = c * b
        X = 24.96 * Cos(u)
        Y = 24.96 * Sin(u)
        Picture2.PSet (X, Y)
    Next
    For c = 110.33 To 259.84 Step 0.5
        u = c * b
        X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) + 27.17 * Cos(u)) * Cos(u)
        Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) + 27.17 * Cos(u)) * Sin(u)
        Picture2.PSet (X, Y)
        
    Next
            For c = 259.85 To 360
        
                u = c * b
                X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Cos(u)
                Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Sin(u)
                Picture2.PSet (3000 + X,2000 + Y)
            Next
End Sub

把picture2尺寸放大点，因为图出现在不显示的地方。不是没有画出来。以下是用你的代码产生的图形.


[ 本帖最后由 vbvcr51 于 2014-5-17 22:54 编辑 ]

可是离右边的差别还是蛮大的 左边的图要怎么才能出来

这个程序的原点左边是不是在中心点 感觉这个曲线的原点在边框的左上角？

你发的图是你代码应该产生这样子的图形吗？但我产生的和你要的差别这么大啊

不是  就是右边那个曲线的中心为什么不在设置的坐标系中心  怎么会偏那么多  后面的图我给的是参考的 我给的代码中间少了一段函数  不过大概算法就是这样   但是跟理想的咋偏离那么多？求助

Dim u As Single, X As Single, Y As Single, c As Double, b As Double
Const pi As Single = 3.14159
b = pi / 180

'建立坐标
Picture2.ScaleMode = 0
Picture2.Width = 6000
Picture2.Height = 6000
Picture2.Line (0, 3000)-(ScaleWidth, 3000)
Picture2.Line (3000, 0)-(3000, ScaleHeight)
 For c = 0 To 79.84 Step 0.5
        u = c * b
        X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Cos(u)
        Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Sin(u)
      
        Picture2.PSet (3000 + X, 3000 + Y), vbRed
    Next
    For c = 79.89 To 110.32 Step 0.5
        u = c * b
        X = 24.96 * Cos(u)
        Y = 24.96 * Sin(u)
        Picture2.PSet (3000 + X, 3000 + Y), vbRed
    Next
    For c = 110.37 To 259.84
        u = c * b
        X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) + 27.17 * Cos(u)) * Cos(u)
        Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) + 27.17 * Cos(u)) * Sin(u)
        Picture2.PSet (3000 + X, 3000 + Y)
        
    Next
    For c = 259.84 To 280.16
       u = c * b
        X = 24.96 * Cos(u)
        Y = 24.96 * Sin(u)
        Picture2.PSet (3000 + X, 3000 + Y), vbRed
     Next
      
            For c = 280.17 To 360
        
                u = c * b
                X = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Cos(u)
                Y = (Sqr(861.7911 + 27.17 * 27.17 * Cos(u) * Cos(u)) - 27.17 * Cos(u)) * Sin(u)
                Picture2.PSet (3000 + X, 3000 + Y), vbRed
            Next
现在的程序  出来的是这个图

我已经整出来了 谢了