我想在picturebox中画一个双曲线,但怎么也画不成,后来简化到了最简形式,却出现了这种结果.不知道是怎么回事,还请给为大哥不吝赐教,谢谢!
代码如下:
Private Sub Command1_Click()
For x = 3 To 1200
y = Sqr((x ^ 2 / 9 - 1) * 4)
Picture1.PSet (x + 1200, 1200 - y)
Picture1.PSet (x + 1200, 1200 + y)
Next x
End sub

其实原方程就是:x^2/9 -y^2/4 =1

怎么没人回答?郁闷啊!