Парабола 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.
На знаки подчеркивания _ не обращай внимания, это для выравнивания.
Там пробелы должны быть, но сайт их съедает.
var a1: array[-1000..50] of integer; только одно правильное нашла.
const m1 = 20; m2 = m1*100;
var a6: array[m1..m2] of -200..200; вместо -200..200 надо было тип указать.
var a2: array[200..-111] of real; сначала отрицательное число.
const n: byte = 0;
var a5: array[-1000..n] of word; не надо указывать тип константы (byte).
var a9: array[0.0..20000.0] of byte; вот насчет этого не уверена, но мне кажется, что тут не надо дробную часть, потому что byte - целый тип.
type mass = array[1..100] of char; пишут не type, a var.
var a7: array[0..99] of mass; насколько мне известно, типа mass не существует.
Код программ можете увидеть нажав Alt+F11
Основные операторы такие же как в других языках
Sub Буква()
For i = 65 To 122
строка =строка + 1
Cells(строка, 3) = Chr(i)
Next i
End Sub
Sub цифра()
For i = 10 To 99
If i / 2 = Int(i / 2) Then
строка= строка+ 1
Cells( строка, 3) = i
End If
Next i
End Sub
Sub Умнож7()
For i = 1 To 100
строка= строка + 1
Cells( строка, 3) = Str(i) + "x 7 = " + Str(i * 7)
Next i
End Sub