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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

56
полняется, если нет – управление передается
оператору, стоящему за ключевым словом
Wend
LotteryEntry=Int(10*Rnd( )) Первый оператор тела
Beep Второй оператор тела
Wend Ключевое слово, отмечающее конец струк-
туры While-Wend
9.7. Управляющая структура Do-Loop
Рассматриваемая структура похожа на структуру While-Wend, одна-
ко дополнительно обладает двумя важными особенностями. Во-первых,
условие завершения цикла Do-Loop можно задавать не только в его нача-
ле, но и в конце. Условие в конце цикла гарантирует, что он будет выпол-
нен хотя бы один раз. Во-вторых, условие можно сделать критерием
как
выполнения цикла Do-Loop, так и его завершения. Последняя возможность
в цикле While-Wend также доступна – чтобы цикл выполнялся, пока не со-
блюдено некоторое условие, его надо указать в структуре While с логиче-
ским оператором Not. В Visual Basic оператор цикла Do-Loop имеет две
разновидности Do While . . . Loop и Do Until . . . Loop. Циклы Do While /
Until имеют следующий синтаксис:
Do While / Until условие
Блок операторов
[Exit Do]
Loop
или
Do
Блок операторов
[Exit Do]
Loop While / Until условие
Рассмотрим несколько простых примеров. В программе Proc6 инст-
рукция While-Wend применялась для определения момента, когда в после-
довательности случайных чисел появлялась семерка. В примере 4 Proc7 та
же операция осуществляется циклом Do-Loop.
Пример 7.
Private Sub Proc7_DoWileLoop ( )
Dim LotteryEntry As Integer
LotteryEntry = 0
Do While LotteryEntry <> 7
LotteryEntry = Int (10*Rnd ( ))
Beep
Loop 
                                      56
                              полняется, если нет – управление передается
                              оператору, стоящему за ключевым словом
                              Wend
LotteryEntry=Int(10*Rnd( ))    Первый оператор тела
Beep                           Второй оператор тела
Wend                          Ключевое слово, отмечающее конец струк-
                              туры While-Wend
                    9.7. Управляющая структура Do-Loop
      Рассматриваемая структура похожа на структуру While-Wend, одна-
ко дополнительно обладает двумя важными особенностями. Во-первых,
условие завершения цикла Do-Loop можно задавать не только в его нача-
ле, но и в конце. Условие в конце цикла гарантирует, что он будет выпол-
нен хотя бы один раз. Во-вторых, условие можно сделать критерием как
выполнения цикла Do-Loop, так и его завершения. Последняя возможность
в цикле While-Wend также доступна – чтобы цикл выполнялся, пока не со-
блюдено некоторое условие, его надо указать в структуре While с логиче-
ским оператором Not. В Visual Basic оператор цикла Do-Loop имеет две
разновидности Do While . . . Loop и Do Until . . . Loop. Циклы Do While /
Until имеют следующий синтаксис:
                     Do While / Until условие
                       Блок операторов
                     [Exit Do]
                     Loop
              или
                     Do
                       Блок операторов
                     [Exit Do]
                     Loop While / Until условие
     Рассмотрим несколько простых примеров. В программе Proc6 инст-
рукция While-Wend применялась для определения момента, когда в после-
довательности случайных чисел появлялась семерка. В примере 4 Proc7 та
же операция осуществляется циклом Do-Loop.
Пример 7.
Private Sub Proc7_DoWileLoop ( )
     Dim LotteryEntry As Integer
    LotteryEntry = 0
    Do While LotteryEntry <> 7
            LotteryEntry = Int (10*Rnd ( ))
            Beep
    Loop

Страницы