проблема по решению VISUAL BASIC for Application (VBA)

[Мариночка=)!]

задание:
1)
Определить площадь, высоту и периметр равностороннего треугольника по заданной его стороне.
2)
Ввести два целых числа a, b. Меньшее из них заменить полусуммой, а большее – удвоенным произведением. Вывести новые значения a, b.
3)
Выяснить, пересекаются ли две прямые, заданные на плоскости уравнениями вида y=kx+b. Если пересекаются, то вывести координаты точки пересечения, иначе вывести сообщение об отсутствии пересечения.

Пример:
«Выбор максимального числа из двух чисел с помощью структурированной программы, состоящей из главной и вспомога-тельной подпрограмм»

Private Sub Анализ (ByVal x As Integer, 
ByVal  y As Integer, 
ByRef r As Integer)
If x>y Then
r = x
Else
If x<y Then 
r = y
 Else  
 МsgBox “Числа равные”: r = x
End If
End If
End Sub 
Private Sub CmdРешение_ Click ()
Dim a As Integer, b As Integer, 
                 maximum2 As Integer
a = CInt (Text1.Text)
b = CInt (Text2.Text)

очень прошу помогите бедненькой студентке
умоляю :-)

[IgorGO]

Смотрите, проверяйте...

Sub TriAngle()
  a = InputBox("Укажите сторону равностороннего треугольника")
  MsgBox "Сторона  = " & a & Chr(10) & _
      "Площадь  = " & a ^ 2 / 2 * Sqr(3) & Chr(10) & _
      "Периметр = " & 3 * a, vbOKOnly, "Равносторонний треугольник:"
End Sub

Sub Digit2()
  a = Val(InputBox("Укажите число а"))
  B = Val(InputBox("Укажите число b"))
  ps = (a + B) / 2
  u2 = a * B * 2
  MsgBox "a = " & a & "   заменено на " & IIf(a < B, ps, u2) & Chr(10) & _
  "b = " & B & "   заменено на " & IIf(a < B, u2, ps)
  If a < B Then a = ps: B = u2 Else a = u2: B = ps
End Sub

Sub Line2()
  k1 = Val(InputBox("Укажите число k1"))
  b1 = Val(InputBox("Укажите число B1"))
  k2 = Val(InputBox("Укажите число k2"))
  b2 = Val(InputBox("Укажите число B2"))
  If k <> k2 Then x = (b2 - b1) / (k1 - k2)
  If k1 <> k2 Then s = Chr(10) & "Точка пересечения:   х = " & x & "  y = " & k1 * x + b1
  MsgBox "Прямые  Y1 = " & k1 & "х " & IIf(b1 > 0, "+", "") & b1 & "  и  " & _
  "  Y2 = " & k2 & "х " & IIf(b2 > 0, "+", "") & b2 & _
  IIf(k1 = k2, " нe ", "") & " - пересекаются." & s
End Sub

[ELE-COM]

IgorGO, в Sub Line2() много ошибок. И кажется формула оординаты точки пересечения неверна.

[IgorGO]

а можно конкретный пример с К1, В1, К2 и В2. Напишите чему ранен Х и У пересечения, и если совсем не в лом, то что выдала Line2.

Спасибо, ошибка есть. вместо
If k <> k2 Then x = (b2 - b1) / (k1 - k2)
следует писать
If k1 <> k2 Then x = (b2 - b1) / (k1 - k2)
И еще, не сочтите за труд - из множества ошибок укажите хотя бы одну.

[ELE-COM]

Например:
k1=1
b1=1
k2=1
b2=2
Макрос спотыкается на
If k <> k2 Then x = (b2 - b1) / (k1 - k2)
И сам хотел спросить о "k" без "1"

А формулы для вычисления координат X и Y разные.

[IgorGO]

уже исправлено. см. предыдущий пост. макрос вывалился когда (в2-в1) делил на (к1-к2). Специально для этого случая (когда прямые параллельны) была предусмотрена проверка, но записана с опечаткой, которая выявлена благодаря Вашей бдительности...

[ELE-COM]

Да, я вижу, просто опоздал с ответом.
А вот если задать 2 одинаковые прямые, то ответ какой должен быть? Ваша прога выдает нет пересечений. А по логике их должно быть бесконечность.

[IgorGO]

А вот если задать 2 одинаковые прямые

А вот две одинаковые прямые - это одна прямая. А по условию задают две

Выяснить, пересекаются ли две прямые

[ELE-COM]

Сообщение от IgorGO

А вот две одинаковые прямые - это одна прямая. А по условию задают две

По условию 2 прямые, правильно, но если есть возможность ввести одинаковые прямые, то и условие для этого должно быть (не сочтите за занудство, просто на месте препода я бы проверил все варианты расположения двух прямых на плоскости по отношению друг к другу и все варианты ввода данных)
Да, и к "не пересекаются" добавить "паралельны, "
Вот тогда точно никчему не придерешься.

[IgorGO]

У двух прямых на плоскости две субьды либо пересекаются, либо нет. А уже в меру общей образованности каждый может решить, "как же они расположены, если не пересекаются".

к "не пересекаются" добавить "паралельны, "

да как в старом анекдоте:
У родддома мужик кричит в окно:
- Родила?!!!
- Да!
- Мальчик?!!!
- Нет!
- А кто...???