sorry最地道的回答:vb求救，急～

其实我想知道的是怎样在picturebox中通过PSet()来画解析几何中的各种曲线。
尚在实验阶段就出错了，修改了半天还没结果，希望哪位大哥能指点一下！
代码如下：Private Sub Command1_Click()
Dim x As Variant
Dim y As Variant
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim m As Variant
Dim n As Variant
Dim o As Variant
Dim p As Variant
a = CVar(Text1.Text)
b = CVar(Text2.Text)
c = CVar(Text4.Text)
d = CVar(Text5.Text)
e = CVar(Text3.Text)

If c = 0 And d = 0 Then
For x = -2380 To 2380 Step 1
y = 4740 - ((a * x * x + 1000 * b * x) / 1000 + 2370 + 1000 * e)
m = x + 2370
Picture1.PSet (m, y)
Next x
Else
Select Case a * c
Case Is > 0
If (d * d) / (4 * a * c) + (b * b) / (4 * a * a) - e / a <= 0 Then
End
Else
For x = (-Sqr((d * d) / (4 * a * c) + (b * b) / (4 * a * a) - e / a) - b / (2 * a)) * 100 + 2370 To (Sqr((d * d) / (4 * a * c) + (b * b) / (4 * a * a) - e / a) - b / (2 * a)) * 100 + 2730 Step 1
o = (x + b / (2 * a)) * (x + b / (2 * a))
n = Sqr(((a / c) * o - e / c))
y = 4740 - (n - d / (2 * c) + 2730)
p = 4740 - (-n - d / (2 * c) + 2730)
Picture1.PSet (x, y)
Picture1.PSet (x, p)
Next x
End If
End Select
End If
End Sub
拜托了，各位大哥们！