我编的VB画反比例函数的图像怎么不行?PrivateSubForm_Click()y=InputBox("y")x=InputBox("x")k=x*yForx=-4To4Step0.001y=k/xPSet(x,y)NextxForm1.Scale(-9,9)-(9,-9)Form1.Line(-8,0)-(8,0)Form1.Line(0,8)-(0,-8)

　　我编的VB画反比例函数的图像怎么不行?

　　PrivateSubForm_Click()y=InputBox("y")x=InputBox("x")k=x*yForx=-4To4Step0.001y=k/xPSet(x,y)NextxForm1.Scale(-9,9)-(9,-9)Form1.Line(-8,0)-(8,0)Form1.Line(0,8)-(0,-8)CurrentX=7:CurrentY=1.3:Print"X"CurrentX=0.2:CurrentY=7.3:Print"Y"Fori=-7To7Line(i,0)-(i,0.3)CurrentX=i-0.2CurrentY=-0.1PrintiNextiFori=-7To7Line(0,i)-(0.3,i)CurrentX=-0.5CurrentY=i-0.2PrintiNextiEndSub