Visual Basic. Теория. Нагина Е.К - 48 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

48
For-Next Выполняет группу операторов заданное число раз
While-Wend Выполняет группу операторов, пока соблюдается
некоторое условие
Do-Loop Выполняет группу операторов, пока соблюдается
или не соблюдается некоторое условие
Select Case В зависимости от значения некоторой переменной
или результата проверки условия выполняет одну
из нескольких возможных групп операторов
For-Each-Next Выполняет действие над каждым объектом семей -
ства или элементом массива
9.1. Структура принятия решения If-Then-Else
Условный оператор If-Then-Else изменяет порядок выполнения про -
граммы в зависимости от результатов проверки некоторого условия .
Sub Proc30_IfThenElse ( )
Dim Num1 As Integer
Num1 = GetRandomNumber
If Num1 = 7 Then
MsgBox “Congratulations! You recelved the winning” &_
Num1 & “.”
Else
MsgBox “I′m sorry, you lose. Your number was” &_
Num1 &”.”
End If
End Sub
Function GetRandomNumber ( )
GetRandomNumber = Int (10*Rnd( ))
End Function
В Proc30 вызов функции GetRandomNumber присваивает переменной
Num1 случайное значение от 0 до 9. Затем в операторе If происходит про -
верка условия : Num1=7. Если результат проверки равен True (Num1 равно
7), на экран выводится информационное окно с сообщением о выигрыше.
Если результат проверки равен False (Num1 не равно 7), на экран вы -
водится другое окно – с сообщением о проигрыше.
Рассмотрим отдельные элементы оператора If-Then-Else.
If Ключевое слово , отмечающее начало оператора If-Then-
Else.
Num1 = 7 Условие для проверки. Первое условие всегда указано
после ключевого слова If. Результатом проверки является
одно из двух значений - True или False, которое и опре-
                                       48
      For-Next           В ы по лняетгруппуо перато ро в заданно е число раз

      While-Wend         В ы по лняет г руппу о перато ро в, по ка со блю дается
                         неко то ро е усло вие
      Do-Loop            В ы по лняет г руппу о перато ро в, по ка со блю дается
                         или несо блю дается неко то ро еусло вие
      Select Case        В зависимо сти о тзначения неко то ро й переменно й
                         или результата про верки усло вия вы по лняето дну
                         из неско льких во змо ж ны х г
                                                      рупп о перато ро в
      For-Each-Next      В ы по лняетдей ствие над каж ды м о бъекто м семей -
                         стваили элементо м массива

             9.1. С тру кту ра принятия решения If-Then-Else
     У сло вны й о перато р If-Then-Else изменяетпо рядо к вы по лнения про -
граммы взависимо стио трезультато впро верки неко то ро г о усло вия.

Sub Proc30_IfThenElse ( )
  Dim Num1 As Integer
     Num1 = GetRandomNumber
     If Num1 = 7 Then
               MsgBox “Congratulations! You recelved the winning” &_
               Num1 & “.”
     Else
            MsgBox “I′m sorry, you lose. Your number was” &_
               Num1 &”.”
     End If
End Sub

Function GetRandomNumber ( )
      GetRandomNumber = Int (10*Rnd( ))
           End Function

      В Proc30 вы зо вфункц ии GetRandomNumber присваиваетпеременно й
Num1 случай но е значение о т0 до 9. Затем в о перато ре If про исхо дитпро -
верка усло вия: Num1=7. Е сли результатпро верки равен True (Num1 равно
7), наэкран вы во дится инфо рмац ио нно е о кно с со о бщ ением о вы игры ш е.
      Е сли результатпро верки равен False (Num1 не равно 7), наэкран вы -
во дится друго е о кно –с со о бщ ением о про иг   ры ш е.
      Рассмо трим о тдельны еэлементы о перато раIf-Then-Else.
If                  К лю чево е сло во , о тмечаю щ ее начало о перато ра If-Then-
                    Else.
Num1 = 7            У сло вие для про верки. П ерво е усло вие всег    да указано
                    по сле клю чево го сло ваIf. Результато м про верки является
                    о дно из двух значений - True или False, ко то ро е и о пре-

Страницы