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

Пример 1. Вычислить значение выражения

Решение.

Sub выражение8()
Dim x, y, z As Double
 
x = Val(InputBox("Введите x="))
y = Val(InputBox("Введите y="))
 
If x - y <> 0 And x > 0 Then
z = (x + y) / (x - y) + Sqr(x)
MsgBox ("z=" + Str(z))
Else
MsgBox ("Выражение не имеет смысла")
End If
 
End Sub

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

Исключительная ситуация возникает, когда в знаменателе получается нуль и подкоренное выражение меньше нуля.