Ветвления на языке VBA - Пример 3

Пример 3. Вычислить площадь треугольника по трем известным сторонам.

Sub Герон4()

Dim A, b, c, p, s As Double

Dim d1, d2, tr_ok As Boolean

A = Val(InputBox("Введите a="))

b = Val(InputBox("Введите b="))

c = Val(InputBox("Введите c="))

d1 = (A >= 0) And (b >= 0) And (c >= 0)

d2 = (A + b > c) And (A + c > b) And (b + c > A)

tr_ok = d1 And d2

If tr_ok Then

p = (A + b + c) / 2

s = Sqr(p * (p - A) * (p - b) * (p - c))

MsgBox ("s=" + Str(s))

Else

MsgBox ("Треугольник не существует")

End If

End Sub

Пояснение решения.

Программа вычисляет площадь треугольника, правильно обрабатывая исключительные ситуации.