Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 46 стр.

                                  46

     For-Each-Next    Выполняет действие над каждым объектом семей-
                      ства или элементом массива
     Exit             Выполняет выход из цикла, а также из процедуры
                      или функции
            9.1. Структура принятия решения If-Then-Else
     Условный оператор If-Then-Else изменяет порядок выполнения про-
граммы в зависимости от результатов проверки некоторого условия и дает
возможность выбирать из двух альтернативных ветвей кода процедуры на
основе оценки того, является ли указанное условие равным True. Синтак-
сическая конструкция данного оператора имеет две формы:
   • безальтернативную, содержащую два типа:
      - линейный:
                         If условие Then Выражение
     - блочный:
                        If условие Then
                        Блок_операторов
                        End If
   • альтернативную, содержащую также два типа:
      - линейный:
              If условие Then Выражение_1 Else Выражение_2
     - блочный:
                        If условие Then
                             Блок_операторов_1
                        Else
                             Блок_операторов_2
                        End If
Пример 1.
Sub Proc1_IfThenElse ( )
  Dim Num1 As Integer
      Num1 = GetRandomNumber
      If Num1 = 9 Then
              MsgBox “Поздравляем! Вы победитель. Ваш номер был” &_
                Num1 & “.”
      Else
             MsgBox “Извините, Вы проиграли. Ваш номер был ” &_
                Num1 &”.”
      End If
End Sub
Function GetRandomNumber ( )
      GetRandomNumber = Int (10*Rnd( ))
           End Function