Учу программирование на VBS? Решаю задачу в которой нужно написать простую функцию по определению наибольшего из 3 чисел введенных пользователем. Захотелось ввести условие, которое будет выполняться, если данные введенные пользователем не являются числом или не могут быть приведены к числу. Не могу понять как это сделать.
Спасибо!
Вот что есть сейчас:
Option Explicit
Function Task(a,b,c, result) 'Функция, которая записывает наибольшее число в переменную result
If a>b And a>c Then
result = a
ElseIf b>a And b>c Then
result = b
ElseIf c>a And c>b Then
result = c
Else
result = 0
End If
End Function
Dim x,y,z,result
x = CDbl(InputBox("Введите первое число","Задача"))
y = CDbl(InputBox("Введите второе число","Задача"))
z = CDbl(InputBox("Введите третье число","Задача"))
Call Task(x,y,z,result)
If result<>0 Then
MsgBox "Самое большое число: "&result
Else
MsgBox "Условия не соблюдены",,"Задача"
End If
Простой
