用VB编写的直线插补程序。Private Sub chabu_l(obj As Object, x0%, y0%, xe%, ye%)