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

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

      Задание 6. Написать процедуру Sub с именем Proc6_ForEachNext
предназначенную для выполнения одной и той же группы действий над
каждым элементом массива по следующему алгоритму:
   1. Выполнить описание одномерного массива AArray(10), состоящего
      из десяти целых чисел и описание переменных, используемых в про-
      грамме, таких как vntA, intSum, intProiz, dblSr с помощью оператора
      Dim.
   2. Осуществить ввод элементов массива AArray() внутри цикла For-
      next с помощью окна ввода InputBox.
   3. Выполнить начальную инициализацию переменной intSum для
      вычисления суммы элементов массива AArray(), переменной intProiz
      для вычисления произведения элементов этого массива и перемен-
      ной dblSr для вычисления среднего арифметического элементов это-
      го массива, присвоив значения 0, 1, 0 соответственно.
   4. С использованием управляющей структуры For Each vntA In AArray
      … Next вычислить сумму, произведение и среднее арифметическое
      элементов массива AArray().
   5. Результаты вычислений выдать на экран с помощью функции
      MsgBox.

      Задание 7. Написать процедуру Sub обработки события Click() для
кнопки с именем КнопкаВычислить, выполняющую следующие действия:
   1. Выполнить описание переменных, используемых в программе, таких
      как dblA, dblB, dblC с помощью оператора Dim.
   2. С помощью управляющей структуры If-Then выполнить проверку
      содержимого текстовых полей Text1 и Text2. Если хотя бы одно по-
      ле окажется пустым выдать соответствующее сообщение с помощью
      функции MsgBox и осуществить досрочный выход из процедуры с
      помощью оператора Exit Sub.
   3. Если в эти поля введены числа, то преобразовать их из текстового
      типа в числовой, применив функцию CDbl() к текстовым полям
      Text1 и Text2 и присвоив полученные значения переменным dblA,
      dblB.
                                   35