1. Образовании (электронные учебники, мультимедийные энциклопедии и справочники, виртуальные лаборатории и т.д.)
2. Культуре и искусстве (компьютерные гиды, виртуальные экскурсии по музеям и историческим местам всего мира, цифровые коллекции произведений живописи и записей музыкальных произведений).
3. Науке (системы компьютерного моделирования).
4. Бизнесе (реклама и продажа товаров и услуг).
5. Компьютерных играх и других областях человеческой деятельности
Парабола y=2-x^2=(√2+x)(√2-x) пересекает ось абсцисс в точках x1=-√2; x2=√2.
Поэтому нужно проверять два условия: (x1 ≤ x ≤ x2) и (0 ≤ y ≤ 2-x^2)
С операторами Select Case это будет так:
x = InputBox ("Введите x")
y = InputBox ("Введите y")
Select Case x
Case -Sqrt(2) To Sqrt(2)
_ _ Select Case y
_ _ Case 0 To (2 - x^2) : MsgBox ("Попадает!")
_ _ Case Else : MsgBox ("Y не попадает")
_ _ End Select
Case Else : MsgBox ("X не попадает")
End Select
Только проверь, как в твоей версии VB пишется функция квадратного корня. В некоторых версиях бывает Sqr вместо Sqrt.
На знаки подчеркивания _ не обращай внимания, это для выравнивания.
Там пробелы должны быть, но сайт их съедает.
Мультимедийные технологии широко применяются в
1. Образовании (электронные учебники, мультимедийные энциклопедии и справочники, виртуальные лаборатории и т.д.)
2. Культуре и искусстве (компьютерные гиды, виртуальные экскурсии по музеям и историческим местам всего мира, цифровые коллекции произведений живописи и записей музыкальных произведений).
3. Науке (системы компьютерного моделирования).
4. Бизнесе (реклама и продажа товаров и услуг).
5. Компьютерных играх и других областях человеческой деятельности