如题！我用以下的代码画抛物线，但画出来的东西不像样，请问有什么问题？可不可以给出一个较完整的代码？

Dim pen As New pen(Color.Red)
Dim x, y As Single
mg = Me.CreateGraphics
For x = 0 To 10 Step 0.1
y = x ^ 2
mg.DrawEllipse(pen, x, y, 1, 1)
Next

dim pen as new pen(color.red)
dim x1,y1,x2,y2 as single
dim i as integer
mg=me.creategraphics

for i=0 to 300
x2=i
y2=x^2
mg.drawellipse(pen,x1,y1,x2,y2)
x1=x2
y1=y2

next

好像效果也还是不太理想喔，还有其他方法吗？

你把间距减少就可以了.

哦，先谢了！