Vb知道如何求壹條直線從壹點到另外兩點的縱坐標(源碼)

從第壹個點到兩個或三個點的直線應作為垂直線。

Dim x(3)為Double，y(3)為Double

將k調成雙精度

x(1) = 3: y(1) = 2

x(2) = 1: y(2) = 1

x(3) = 2: y(3) = 0

如果x(2) = x(3)或y(2) = y(3)，則

如果y(2) = y(3 ),那麽

y(0) = y(2)

x(0) = x(1)

其他

x(0) = x(2)

y(0) = y(1)

如果…就會結束

其他

k = (y(3) - y(2)) / (x(3) - x(2))

x(0)=(y(1)-y(2)+k * x(2)+x(1)/k)/(k+1/k)

y(0)= y(1)-(x(0)-x(1))/k

如果…就會結束

調試。打印x(0)，y(0)

末端接頭