Разработайте алгоритм для решения задачи.Результаты представить в виде массива - VB

Формулировка задачи:

Даны две прямые, заданные уравнением у=к1х+b1 y=k2x+b2, вводятся к1 b1 к2 b2, определить являются ли данные прямые перпендикулярными и найти их точку пересечения.

Решение задачи: «Разработайте алгоритм для решения задачи.Результаты представить в виде массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Me.AutoRedraw = True
Dim k1, k2, b1, b2, x, y As Double
k1 = InputBox("ГўГўГҐГ¤ГЁГІГҐ ГЇГҐГ°ГўГ»Г© ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ")
b1 = InputBox("ГўГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® b1")
k2 = InputBox("ГўГўГҐГ¤ГЁГІГҐ ГўГІГ®Г°Г®Г© ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ")
b2 = InputBox("ГўГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® b2")
 
If k1 * k2 = -1 Then
x = (b2 - b1) / (k1 - k2)
y = k1 * x + b1
Print "ГЏГ°ГїГ¬Г»ГҐ ГЇГҐГ°ГЇГҐГ*Г¤ГЁГЄГіГ«ГїГ°Г*Г» ГЁ ГЇГҐГ°ГҐГ±ГҐГЄГ*ГѕГІГ±Гї Гў ГІГ®Г·ГЄГҐ ГЂ(" + Str(x) + ";" + Str(y) + ")"
ElseIf k1 = k2 Then Print "ГЏГ°ГїГ¬Г»ГҐ ГЇГ*Г°Г*Г«Г«ГҐГ«ГјГ*Г»"
Else
x = (b2 - b1) / (k1 - k2)
y = k1 * x + b1
Print "ГЏГ°ГїГ¬Г»ГҐ ГЇГҐГ°ГҐГ±ГҐГЄГ*ГѕГІГ±Гї Гў ГІГ®Г·ГЄГҐ ГЂ(" + Str(x) + ";" + Str(y) + ")"
End If
 
End Sub