Private Sub Command1_Click()
zhixian 1,2,3
End Sub
Sub zhixian(A As Single,B As Single,C As Single)
'Ax+By+C=0
Dim x1 As Single,y1 As Single
Dim x2 As Single,y2 As Single
x0 = 1000
y0 = 1000
x1 = -500
y1 = (-C - A * x1) / B
x1 = x1 + x0
y1 = y1 + y0
x2 = 500
y2 = (-C - A * x2) / B
x2 = x2 + x0
y2 = y2 + y0
Line (0,1000)-(2000,1000)
Line (1000,0)-(1000,2000)
Line (x1,y1)-(x2,y2)
End Sub Private Sub Command1_Click()
zhixian 1,2,3
End Sub
Sub zhixian(A As Single,B As Single,C As Single)
'Ax+By+C=0
Dim x1 As Single,y1 As Single
Dim x2 As Single,y2 As Single
x0 = 1000
y0 = 1000
x1 = -500
y1 = (-C - A * x1) / B
x1 = x1 + x0
y1 = y1 + y0
x2 = 500
y2 = (-C - A * x2) / B
x2 = x2 + x0
y2 = y2 + y0
Line (0,1000)-(2000,1000)
Line (1000,0)-(1000,2000)
Line (x1,y1)-(x2,y2)
End Sub