Math 如何找到具有X1，X2，Y1，Y2的Y截距

我正在为我七年级的数学课做一个项目，我想知道如果两点知道两点的位置，如何计算一个图的Y截距。 以下是我所拥有的：

Option Explicit
Dim X1, X2, Y1, Y2, Y, X, S
X1=InputBox("Enter X1")
Y1=InputBox("Enter Y1")
X2=InputBox("Enter X2")
Y2=InputBox("Enter Y2")
X=X2-X1
Y=Y2-Y1
S=Y/X
MsgBox("The slope of [" & X1 & "," & Y1 & "] and [" & X2 & "," & Y2 & "] is " & S)
MsgBox("Equation: (" & Y2 & "-" & Y1 & ") / (" & X2 & "-" & X1 & ") = " & S)

---

我不知道如何将（X1，Y1）和（X2，Y2）计算成Y截距。

第一步是找到斜率。看起来你在用S=Y/X做这个

在这之后，很容易：

---

y-截距=Y1-S*X1

通过点

（X1，Y1）

且斜率

S

的直线为

y(x) = Y1 + S*(x-X1)

y(x) = Y1 + (Y2-Y1)*(x-X1)/(X2-X1)

通过两个点

（X1，Y1）

和

（X2，Y2）

的线为

y(x) = Y1 + S*(x-X1)

y(x) = Y1 + (Y2-Y1)*(x-X1)/(X2-X1)

该线与y轴相交的位置为

Y0 = (X2*Y1-X1*Y2)/(X2-X1)

xy

平面上的线的另一种形式为

(X2-X1)*y - (Y2-Y1)*x = X2*Y1-X1*Y2 = constant

请试试这个

p1 = InputBox("Enter X1,Y1","Y Intercept")
p2 = InputBox("Enter X2,Y2","Y Intercept")
x1 = Left(p1,InStr(p1,",") -  1)
y1 = Replace(p1,x1 & ",","")
x2 = Left(p2,InStr(p2,",") -  1)
y2 = Replace(p2,x2 & ",","")
MsgBox "Y Intercept = " & y2 - (((y2-y1)/(x2-x1)) * x2)

---

给定等式

y=m*x+b

，其中

m

是斜率，

b

是y截距，你已经有了

y

，

m

，和

x

（只需插入

X1，Y1

），因此你可以求解

b

。