Народ, помогите пожалуйста, нужно написать програмку в эксель VBA
2. Написать программу распознающую по длинам сторон среди всех видов треугольников прямоугольные.
3. Даны два целых числа D (день) и М (месяц), определяющие правильную дату невисокосного года. Вывести значения D и М, для даты следующей за указанной.

Можно так покороче

Sub Swap(a, b) t = a a = b b = tEnd SubSub ex2() a = CDbl(Cells(1, 2)) b = CDbl(Cells(2, 2)) c = CDbl(Cells(3, 2)) Cells(4, 2) = "Íå ïðÿìîóãîëüíûé" If a < b Then Call Swap(a, b) If a < c Then Call Swap(a, c) If b ^ 2 + c ^ 2 = a ^ 2 Then Cells(4, 2) = "Ïðÿìîóãîëüíûé"End Sub