Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6. Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты. Читайте требования к создаваемым темам.
А что непонятного?
Составляешь каноническое уравнение прямой для каждой из линий, арктангенс коэффициента линии будет угол. Разница углов будет угол между линиями.
y=kx+b - это линейная функция. Это не то же, что уравнение прямой: например, вертикальной линии не соответствует линейная функция, и значит не соответствует никакое k.
Ну уж нет
Признай, что уравнение y=kx+b неспособно описать вертикальные линии, потому что так оно и есть
"линейная функция" != "уравнение прямой" хотя бы уже потому, что одна - функция, а другое - уравнение
"y=kx+b" - не уравнение прямой, по указанной в начале поста причине.