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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

54
9.4. Управляющая структура While-Wend
Действие ее подобно действию For-Next, но группа операторов вы -
полняется не заданное число раз , а до соблюдения определенного условия.
В программе Proc34 инструкция While-Wend использована для выделения
определенного значения из последовательности случайных чисел.
Sub Proc34_WhileWend ( )
Dim LotteryEntry As Integer
LotteryEntry = 0
While LotteryEntry <> 7
LotteryEntry = Int (10*Rnd ( ))
Beep
Wend
MsgBox “Your number is “& LotteryEntry &”. You Win!!”
End Sub
Программа Proc34 гарантирует, что в информационном окне всегда
отображается заданное число . Цикл While-Wend выполняется , пока значе-
ние переменной LotteryEntry не станет равным 7 (в условии использован
оператор неравенства <>). При каждом выполнении цикла этой перемен -
ной присваивается случайное значение от 1 до 9, а затем с помощью функ-
ции Visual Basic Beep подается звуковой сигнал через внутренний динамик
компьютера. При запуске этой программы несколько раз , можно услышать
разное количество сигналов, в зависимости от того , на каком шаге генера-
тор случайных чисел вернет число 7.
Рассмотрим структуру цикла While-Wend подробнее.
While Ключевое слово , начало структуры While-
Wend.
LotteryEntry <> 7 Условие, определяющее , будет или нет вы -
полнен цикл. Если оно соблюдено , цикл вы -
полняется, если нет – управление передается
оператору, стоящему за ключевым словом
Wend.
LotteryEntry=Int(10*Rnd( )) Первый оператор тела.
Beep Второй оператор тела.
Wend Ключевое слово , отмечающее конец струк -
туры While-Wend.
9.5. Управляющая структура Do-Loop
Она похожа на структуру While-Wend, однако дополнительно обла-
дает двумя важными особенностями. Во-первых, условие завершения цик-
ла Do-Loop можно задавать не только в его начале, но и в конце. Условие в 
                                       54

                9.4. У правл яю щ ая стру кту ра While-Wend

      Д ей ствие ее по до бно дей ствию For-Next, но группа о перато ро в вы -
по лняется не заданно е число раз, адо со блю дения о пределенно го усло вия.
В про грамме Proc34 инструкц ия While-Wend испо льзо вана для вы деления
о пределенно г о значения из по следо вательно сти случай ны х чисел.

Sub Proc34_WhileWend ( )
    Dim LotteryEntry As Integer
    LotteryEntry = 0
    While LotteryEntry <> 7
         LotteryEntry = Int (10*Rnd ( ))
         Beep
    Wend
    MsgBox “Your number is “& LotteryEntry &”. You Win!!”
End Sub

      П ро г
           рамма Proc34 г  арантирует, чт    о в инфо рмац ио нно м о кне всегда
о то браж ается заданно е число . Ц икл While-Wend вы по лняется, по ка значе-
ние переменно й LotteryEntry не станетравны м 7 (в усло вии испо льзо ван
о перато р неравенства <>). П ри каж до м вы по лнении ц икла это й перемен-
но й присваивается случай но е значение о т1 до 9, азатем с по мо щ ью функ-
ц ии Visual Basic Beep по дается звуко во й сигнал через внутренний динам ик
ко мпью тера. П ри запуске это й про г раммы неско лько раз, мо ж но услы ш ать
разно е ко личество сигнало в, в зависимо сти о тто г   о , накако м ш аг
                                                                        егенера-
то рслучай ны х чиселвернетчисло 7.
      Рассмо трим структуруц иклаWhile-Wend по дро бнее.
While                           К лю чево е сло во , начало структуры While-
                               Wend.
LotteryEntry <> 7               У сло вие, о пределяю щ ее, будетили нетвы -
                               по лнен ц икл. Е сли о но со блю дено , ц икл вы -
                               по лняется, если нет– управление передается
                               о перато ру, сто ящ ему за клю чевы м сло во м
                               Wend.
LotteryEntry=Int(10*Rnd( )) П ервы й о перато ртела.
Beep                            В то ро й о ператор тела.
Wend                            К лю чево е сло во , о тмечаю щ ее ко нец струк-
                               туры While-Wend.

               9.5. У правл яю щ ая стру кту ра Do-Loop

     О на по хо ж а на структуру While-Wend, о днако до по лнительно о бла-
даетдвумя важ ны ми о со бенно стями. В о -первы х, усло вие заверш ения ц ик-
лаDo-Loop мо ж но задавать не то лько вего начале, но и вко нц е. У сло вие в

Страницы