Visual Basic for Applications. Практика. Нагина Е.К - 34 стр.

      Задание 3. Написать процедуру Sub с именем Proc3_WileWend для
выделения определенного значения равного 7, указывающего на выигрыш
из последовательности случайных чисел от 1 до 9 по следующему алго-
ритму:
   1. Выполнить описание переменных, используемых в программе, таких
      как intLotteryEntry, intSum с помощью оператора Dim.
   2. Выполнить начальную инициализацию этих переменных, присвоив
      каждой значение равное нулю.
   3. С помощью управляющей структуры Wile-Wend генерировать слу-
      чайные числа от 1 до 10. Цикл Wile-Wend должен выполняться до
      тех пор, пока значение переменной intLotteryEntry не станет равным
      7. При каждом выполнении цикла этой переменной присваивается
      значение от 1 до 9 и происходит добавление этого значения к сумме
      intSum сгенерированных ранее чисел. При этом подается звуковой
      сигнал оператором Beep.
   4. Как только значение intLotteryEntry станет равным 7 выдать на экран
      сообщение о выигрыше и значение накопленной суммы (intSum).

      Задание 4. Написать процедуру Sub с именем Proc4_DoWileLoop для
выделения определенного значения равного 7, указывающего на выигрыш
из последовательности случайных чисел от 1 до 9 по следующему алго-
ритму:
   1. Выполнить описание переменных, используемых в программе, таких
      как intLotteryEntry, intSum с помощью оператора Dim.
   2. Выполнить начальную инициализацию этих переменных, присвоив
      каждой значение равное нулю.
   3. С помощью управляющей структуры DoWileLoop генерировать
      случайные числа от 1 до 10. Цикл DoWileLoop должен выполняться
      до тех пор, пока значение переменной intLotteryEntry не станет рав-
      ным 7. При каждом выполнении цикла этой переменной присваива-
      ется значение от 1 до 9 и происходит добавление этого значения к
      сумме intSum сгенерированных ранее чисел. При этом подается зву-
      ковой сигнал оператором Beep.
   4. Как только значение intLotteryEntry станет равным 7 выдать на экран
      сообщение о выигрыше и значение накопленной суммы (intSum).

      Задание 5. Написать процедуру Sub с именем Proc5_DoUntilLoop для
выделения определенного значения равного 7, указывающего на выигрыш
из последовательности случайных чисел от 1 до 9 по следующему алго-
ритму:
   1. Выполнить описание переменных, используемых в программе, таких
      как intLotteryEntry, intSum с помощью оператора Dim.
   2. Выполнить начальную инициализацию этих переменных, присвоив
      каждой значение равное нулю.

                                   34