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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

55
ние присваивается переменной Factorial (обратите внимание, что фактори-
ал 0 действительно равен 1). Если второе условие не соблюдено, то на эк-
ране появляется сообщение, что факториал отрицательного числа посчи-
тать нельзя. Если введено нечисловое значение, неудачей заканчивается
проверка первого условия, и на экран выводится просьба повторить по-
пытку. Если все условия выполнены и
факториал вычислен, результат ото-
бражается в окне сообщения (MsgBox).
9.6. Управляющая структура While-Wend
Действие этой структуры подобно действию For-Next, но группа
операторов выполняется не заданное число раз, а до соблюдения опреде-
ленного условия. Синтаксис данной структуры следующий:
While условие
Блок операторов
Wend
Пример 6. В программе Proc6 инструкция While-Wend использована
для выделения определенного значения из последовательности случайных
чисел.
Private Sub Proc6_WhileWend ( )
Dim LotteryEntry As Integer
LotteryEntry = 0
While LotteryEntry <> 7
LotteryEntry = Int (10*Rnd ( ))
Beep
Wend
MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub
Программа Proc6 гарантирует, что в информационном окне всегда
отображается заданное число. Цикл While-Wend выполняется, пока значе-
ние переменной LotteryEntry не станет равным 7 (в условии использован
оператор неравенства <>). При каждом выполнении цикла этой перемен-
ной присваивается случайное значение от 1 до 9, а затем с помощью функ-
ции Visual Basic Beep, подается звуковой сигнал через внутренний дина
-
мик компьютера. При запуске этой программы несколько раз можно ус-
лышать разное количество сигналов в зависимости от того, на каком шаге
генератор случайных чисел вернет число 7.
Рассмотрим структуру цикла While-Wend.
While Ключевое слово, начало структуры While-
Wend
LotteryEntry <> 7 Условие, определяющее, будет или нет вы-
полнен цикл. Если оно соблюдено, цикл вы-
                                   55
ние присваивается переменной Factorial (обратите внимание, что фактори-
ал 0 действительно равен 1). Если второе условие не соблюдено, то на эк-
ране появляется сообщение, что факториал отрицательного числа посчи-
тать нельзя. Если введено нечисловое значение, неудачей заканчивается
проверка первого условия, и на экран выводится просьба повторить по-
пытку. Если все условия выполнены и факториал вычислен, результат ото-
бражается в окне сообщения (MsgBox).
               9.6. Управляющая структура While-Wend
     Действие этой структуры подобно действию For-Next, но группа
операторов выполняется не заданное число раз, а до соблюдения опреде-
ленного условия. Синтаксис данной структуры следующий:
                    While условие
                         Блок операторов
                    Wend
     Пример 6. В программе Proc6 инструкция While-Wend использована
для выделения определенного значения из последовательности случайных
чисел.
Private Sub Proc6_WhileWend ( )
    Dim LotteryEntry As Integer
    LotteryEntry = 0
    While LotteryEntry <> 7
         LotteryEntry = Int (10*Rnd ( ))
         Beep
    Wend
    MsgBox “Ваш номер равен “& LotteryEntry &”. Вы выиграли!!”
End Sub
    Программа Proc6 гарантирует, что в информационном окне всегда
отображается заданное число. Цикл While-Wend выполняется, пока значе-
ние переменной LotteryEntry не станет равным 7 (в условии использован
оператор неравенства <>). При каждом выполнении цикла этой перемен-
ной присваивается случайное значение от 1 до 9, а затем с помощью функ-
ции Visual Basic Beep, подается звуковой сигнал через внутренний дина-
мик компьютера. При запуске этой программы несколько раз можно ус-
лышать разное количество сигналов в зависимости от того, на каком шаге
генератор случайных чисел вернет число 7.
    Рассмотрим структуру цикла While-Wend.
While                       Ключевое слово, начало структуры While-
                            Wend
LotteryEntry <> 7           Условие, определяющее, будет или нет вы-
                            полнен цикл. Если оно соблюдено, цикл вы-

Страницы