End Sub. y0 = InputBox(Введите у координату точки, Повторный запрос)

End If

End If

y0 = InputBox ("Введите у координату точки", "Повторный запрос")

' перевод х из градусов в радианы

x = x0 * 4 * Atn (1) / 180

' вычисляем значение функции

y = Sin (x_radian)

If y > y0 Then

MsgBox "Точка лежит под кривой",, "Ответ"

ElseIf y = y0 Then

MsgBox "Точка лежит на кривой",, "Ответ"

ElseIf y < y0 Then

MsgBox "Точка лежит над кривой",, "Ответ"

9.11.5. Оператор Select … Case

VBA имеет условный оператор перехода для использования в случаях, когда необходимо выбирать из большого количества различных ветвей кода: оператор Select Case (с его помощью очень удобно реализовывать структуру множественного выбора).Он работает во многом так же, как множество независимых операторов If,но он более понятен для того, кто пишет код, и того, кто читает этот код. Этот оператор более эффективен, чем оператор If…Then…Else.

Ключевые слова Select Case используются со многими операторами Case,где каждый оператор Case проверяет появление другого условия и выполняется только одна из ветвей Case. Ветвь Case может содержать один, несколько или ни одного оператора VBA.

Select Case – управляющий оператор, выполняющий один из нескольких блоков операторов в зависимости от значения выражения.

Select Case Выражение_выбора

[ Case Список_выражений_1

[Блок_операторов_1]

[ Case Список_выражений_2 ]

[Блок_операторов_2]]

……………………………………………………………………………

[ Case Else

[Блок_операторов_N]]

Дата добавления: 2014-01-04