Основные возможности Visual Basic. Макова Н.Е. - 51 стр.

              Допускается также использование формы синтаксиса в виде
         блока:
                                IF условие_1 THEN
                                   блок команд_1
                            [ELSEIF условие_2 THEN
                                   блок команд_2
                                         ...
                             [ELSE
                                 блок команд_n ]…]
                            END IF
              Пример. Рассчитаем сумму, которую должен заплатить
         клиент за сеанс игры в большой теннис. Если клиент постоянный,
         то ему предоставляется скидка 5 %. Флажок номер один фикси-
         рует клиент постоянный или нет. Стоимость одного часа состав-
         ляет 600 руб. Сеанс может длиться несколько часов.
              'Сумма – оплата за сеанс
              'Стоимость сеанса хранится в переменной Стоимость
              'Часы – указывают, сколько длился сеанс
              If Form1.CheckBox1.Value = True Then
                 Сумма=Стоимость*Часы – Стоимость*Часы*0.05
                 ELSE Сумма = Стоимость*Часы
              END IF
              Переключатель позволяет сделать выбор из нескольких аль-
         тернативных вариантов в зависимости от значения условного вы-
         ражения:
              SELECT CASE Выражение
              CASE Значение_1 'Оператор, выполняемый при совпадении _
                                           Значения_1 и значения Выражения
              CASE Значение_2
                …
              CASE Значение_N
              END SELECT
              В операторе Select Case можно использовать операции отно-
         шения. Для этого надо включить в выражение ключевое слово Is
         или ключевое слово То Ключевое слово Is дает указание компи-
         лятору сравнить значение проверяемой переменной со значением
         выражения, следующего за ключевым словом Is. Ключевое слово
         То задает диапазон значений. Например, нижеприведенный код

                                                                             51

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com