Как вычислить Sqr(5*X)/(3*X-6) - VB
Формулировка задачи:
Прошу помогите решить задание:
Разработать макро функцию с одним параметром х, который вычесляет данное выражение
Если выражение не может быть вычислино тогда функция должна выводить сообщение.
Решение задачи: «Как вычислить Sqr(5*X)/(3*X-6)»
textual
Листинг программы
private function BungleGrind(x as single) as single
if (x<0)or (x=2) then
msgbox("Неправильный x="+str$(x))
BungleGrind=0
exit function
else
BungleGrind=sqr(x*5)/(3*x-6)
end if
end function