程序在附件中。

我的问题是 我在excel中已经计算了斜率，斜率在直线上升段都是20，但是在vb中所画出的倾斜 的 那段直线却不直。水平那段还是直线（正确无误）。


我想了 很久 实在是想不出。请指教

还有 vb程序中
Private Sub SetAxis(PicX As PictureBox)
Dim i As Integer
PicX.Line (0, 0)-(PicX.ScaleWidth, 0), vbGreen '画X轴


For i = 0 To Pic.Width / 500
'PicX.Line (500 * i, 0)-(500 * i, Pic.Width), &HE0E0E0
PicX.CurrentX = 500 * i - 50
PicX.CurrentY = -100
PicX.Print 1 * i
Next

PicX.Line (0, PicX.Height)-(0, 0), vbGreen  '画Y轴

For i = 1 To Pic.Height / 500
''PicX.Line (0, 500 * i)-(Pic.Width, 500 * i), &HE0E0E0
PicX.CurrentX = 0
PicX.CurrentY = 500 * i
PicX.Print 10 * i
Next
End Sub
如果我想画坐标方格，将上述程序中'PicX.Line (500 * i, 0)-(500 * i, Pic.Width), &HE0E0E0
和''PicX.Line (0, 500 * i)-(Pic.Width, 500 * i), &HE0E0E0
不屏蔽
则 所画的直线 则 有的没有颜色 

请指教 

小女子万分感谢