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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

57
MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub
Эта программа мало отличается от примера 6: во-первых, перед клю-
чевым словом While появилось слово Do, во-вторых, в конце цикла вместо
Wend стоит Loop. Однако цикл Do-Loop позволяет переписать процедуру
еще несколькими способами. В примере 8 слово While заменено словом
Until, а вместо оператора неравенства в сравнении LotteryEntry и 7 задан
оператор равенства.
Пример 8.
Private Sub Proc8_DoUntilLoop ( )
Dim LotteryEntry As Integer
LotteryEntry = 0
Do Until LotteryEntry = 7
LotteryEntry = Int (10*Rnd ( ))
Beep
Loop
MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub
Цикл Do-Loop позволяет внести в эту процедуру еще несколько из-
менений. Например, в программе Proc9 ключевое слово Do оставлено в на-
чале цикла, а условие завершения и ключевое слово Until переместилось в
его конец, за ключевое слово Loop. В таком варианте цикл обязательно
выполняется хотя бы один раз, поскольку условие завершения
не проверя-
ется, пока не будут выполнены все операторы из тела цикла. Поэтому
можно убрать оператор для инициализации переменной Lottery Entry.
Пример 9.
Private Sub Proc9__DoLoopUntil ()
Dim LotteryEntry As Integer
Do
LotteryEntry = Int (10*Rnd ( ))
Beep
Loop Until LotteryEntry = 7
MsgBox “Ваш номер равен “ & LotteryEntry & “. Вы выиграли!!”
End Sub
9.8. Управляющая структура For-Each-Next
Это самый мощный цикл Visual Basic - For-Each-Next. Аналогичные
структуры в других языках программирования встречаются очень редко.
Структура For-Еach-Next предназначена для выполнения одной и той же
группы действий над каждым объектом семейства или элементом массива.
Это особенно выгодно, если точно не известно, сколько элементов содер-
жит коллекция. Синтаксис оператора For-Each-Next следующий: 
                                   57
    MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub

      Эта программа мало отличается от примера 6: во-первых, перед клю-
чевым словом While появилось слово Do, во-вторых, в конце цикла вместо
Wend стоит Loop. Однако цикл Do-Loop позволяет переписать процедуру
еще несколькими способами. В примере 8 слово While заменено словом
Until, а вместо оператора неравенства в сравнении LotteryEntry и 7 задан
оператор равенства.
Пример 8.
Private Sub Proc8_DoUntilLoop ( )
     Dim LotteryEntry As Integer
    LotteryEntry = 0
    Do Until LotteryEntry = 7
         LotteryEntry = Int (10*Rnd ( ))
         Beep
    Loop
    MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub
      Цикл Do-Loop позволяет внести в эту процедуру еще несколько из-
менений. Например, в программе Proc9 ключевое слово Do оставлено в на-
чале цикла, а условие завершения и ключевое слово Until переместилось в
его конец, за ключевое слово Loop. В таком варианте цикл обязательно
выполняется хотя бы один раз, поскольку условие завершения не проверя-
ется, пока не будут выполнены все операторы из тела цикла. Поэтому
можно убрать оператор для инициализации переменной Lottery Entry.
Пример 9.
Private Sub Proc9__DoLoopUntil ()
      Dim LotteryEntry As Integer
      Do
             LotteryEntry = Int (10*Rnd ( ))
             Beep
      Loop Until LotteryEntry = 7
       MsgBox “Ваш номер равен “ & LotteryEntry & “. Вы выиграли!!”
End Sub
             9.8. Управляющая структура For-Each-Next
     Это самый мощный цикл Visual Basic - For-Each-Next. Аналогичные
структуры в других языках программирования встречаются очень редко.
Структура For-Еach-Next предназначена для выполнения одной и той же
группы действий над каждым объектом семейства или элементом массива.
Это особенно выгодно, если точно не известно, сколько элементов содер-
жит коллекция. Синтаксис оператора For-Each-Next следующий:

Страницы