怎样在vb上 画一个二元一次方程的图 求编码还有一个二元二次方程的图
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/27 01:10:07
怎样在vb上画一个二元一次方程的图求编码还有一个二元二次方程的图怎样在vb上画一个二元一次方程的图求编码还有一个二元二次方程的图怎样在vb上画一个二元一次方程的图求编码还有一个二元二次方程的图Priv
怎样在vb上 画一个二元一次方程的图 求编码还有一个二元二次方程的图
怎样在vb上 画一个二元一次方程的图 求编码
还有一个二元二次方程的图
怎样在vb上 画一个二元一次方程的图 求编码还有一个二元二次方程的图
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