![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
If Условие Then
Блок операторов 1 Else Блок операторов 2 End If
Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом: If Условие Then Оператор
или: If Условие Then Блок операторов End If
Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид
If Условие1 Then Блок операторов 1 ElseIf Условие2 Then Блок операторов 2 ElseIf Условие3 Then ……….. Else Блок операторов End If
В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделены двоеточием. Пример If A > 10 Then A = A + 1: B = B + A: C = C + B Пример 1 Задано целое число x. Вычислить значение функции Программный код Sub PR3() Dim x As Integer Dim y As Double x = Val(InputBox(" Введите x")) If x > 0 Then y = Sqr(x) If x < 0 Then y = x ^ 2 If x = 0 Then y = 5 MsgBox (" y=" & y) End Sub
Пример 2 Задано действительное число x. Вычислить значение функции Программный код
Sub PR4() Dim x As Double Dim y As Double x = Val(InputBox(" Введите x")) If x > 0 Then y = 1 / Sqr(x) MsgBox (" y=" & y) Else MsgBox (" Решения нет") End If End Sub Пример 3 Задано три действительных числа x, y, z. Вычислить самое большое из них. Программный код Sub PR5() Dim x As Double, y As Double, z As Double, max As Double x = Val(InputBox(" Введите x")) y = Val(InputBox(" Введите y")) z = Val(InputBox(" Введите z")) If (x > y) And (x > z) Then max = x If (y > x) And (y > z) Then max = y If (z > x) And (z > y) Then max = z MsgBox (" Максимум=" & max) End Sub Оператор выбора Select Case Оператор выбора Select Case удобно использовать, когда в зависимости от значения некоторого выражения, имеющего конечное множество допустимых значений, необходимо выполнить разные действия. Select Case Тестируемое выражение Case Условие выбора 1 Блок операторов 1 …………… Case Условие выбора n Блок операторов n
|