显然，这是一个隐函数。如果m1不等于0可以改写为：
a=(d-m2*b)/m1
vb代码就可以写成：
for b=-30000 to 30000
a=(d-m2*b)/m1
?a,b
if b=-30000 then
x=a
y=b
endif
picture1.line (x,y)-(a,b)
x=a
y=b
next b