ВУЗ:
Составители:
Рубрика:
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.
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
Страницы
- « первая
- ‹ предыдущая
- …
- 33
- 34
- 35
- 36
- 37
- …
- следующая ›
- последняя »