Задание: разработайте приложение, которое вычисляет сумму 10 целых чисел от 0 до 100 и их среднее арифметическое.
Ход работы
1 Создайте новый проект. Расположите элементы управления на новой форме, как показано на рис. 38.
Рис. 38. Конструктор формы
2 Для решения данной задачи необходимо запрограммировать кнопку Вычислить так, чтобы в текстовое окно выводились элементы массива, их сумма, а затем их среднее арифметическое. Сначала задайте свойство MultiLine для текстового окна txtMaccив равным True для того, чтобы в текстовом окне можно было выводить текст в несколько строк.
3 Сначала в процедуре, описывающей событие щелчка мыши по кнопке Вычислить, опишем переменные, которые мы будем использовать при решении поставленной задачи:
Dim Массив(1 To 10) As Integer
Dim i As Integer
Dim Сумма As Integer
4 Для того чтобы задать значения элементам массива, воспользуемся циклом:
Randomize Timer
For i = 1 To 10
Массив(i) = 100 * Rnd - 50
Next i
5 Теперь задайте начальное значение для Суммы, равное 0.
6 С помощью следующего цикла вычислим сумму элементов массива:
For i = 1 To 10
Сумма = Сумма + Массив(i)
Next i
7 Теперь осталось вывести элементы массива, сумму и среднее арифметическое в текстовое окно, как показано на рис. 39.
8 Сначала выведите фразу Массив:
txtМассив = "Массив: "
9 Теперь в цикле необходимо вывести элементы массива:
For i = 1 To 10
txtМассив = txtМассив + Str$(Массив(i)) + " "
Next i
Рис. 39
10 Для того, чтобы выводить текст с новой строки добавьте символ перехода на новую строку, ASCII-код которого равен Chr (10)+Chr (13), или значение встроенной константы VB vbCrLf, т.е.
txtМассив = txtМассив + vbCrLf + "Сумма: " + Str$(Сумма)
11 Самостоятельно добавьте вывод в текстовое окно среднего арифметического.
12 Запустите и отладьте программу. Сохраните проект.
Дополнительное задание
Сократите текст получившейся программы, путем замены трех циклов на один.
Контрольные задания
Разработать приложение, которое вычисляет:
1) ;
2) ;
3) ;
4) максимальное (минимальное) число из 15 заданных целых чисел;
5) ;
6) ;
7) количество элементов массива из 35-ти целых чисел от –100 до 100, которые по своему абсолютному значению превосходят число 49;
8) сколько элементов в массиве из 25 целых чисел больше своих «соседей», т.е. предыдущего и последующего элементов;
9) сколько раз в массиве из 30 элементов меняется знак (например, в массиве 1, –34, 8, 14, –5 знак меняется 3 раза).
Вопросы для самоконтроля:
1 Что такое массив?
2 Сколько элементов будет содержать массив, который описан с помощью следующего оператора:
Dim Девять(9) as Integer ?
3 Для чего необходимо применять массивы?
4 С помощью какого оператора можно описать массив, который будет доступен всем модулям Вашего приложения?
5 С помощью какого оператора можно описать массив целых чисел с индексами от 4 до 26 для использования в какой-нибудь процедуре?
6 Что такое динамический массив?
7 Как описываются динамические массивы?
8 С помощью какого оператора можно изменить размер динамического массива?
Скачано с www.znanio.ru
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.