Лабораторная работа № 4.
Тема: Изучение объекта список (ListBox). Операции над элементами списка.
Цель: Создать пользовательскую форму для решения задач с одномерным массивом. Разместить на ней элемент список, установить переключатели Сумма, Произведение, Среднее арифметическое иобъединить их в рамку Операци., Создать кнопки Заполнить список, Очистить список, Расчет и Очистить результат.
Содержание работы
1. Выполнить работу по методичке – создать пользовательскую форму работы с элементами списка.
2. Выполнить задание по варианту из таблицы вариантов.
3. Продемонстрировать работающую программу преподавателю.
4. Оформить протокол.
Требования к оформлению протокола.
В протокол необходимо включить:
1. Тему и цель работы.
2. Формулировку задач по варианту.
3. Разработанную пользовательскую форму.
4. Таблицу свойств всех объектов управления.
5. Тексты программ на VBA.
6. Результаты расчета.
7. Выводы по работе.
Основные положения
Элемент управления Список (ListBox) создается с помощью кнопки Список 
панели элементов управления. Элемент управления Список применяется для хранения списка значений. Из списка пользователь может выбрать одно или несколько значений, которые в последующем будут использованы в тексте программы.
Основные свойства элемента управления ListBox:
| ListIndex | Возвращает номер текущего элемента списка. Нумерация элементов списка начинается с нуля. |
| ListCount | Возвращает число элементов списка. |
| TopIndex | Возвращает элемент списка с наибольшим номером. |
| ColumnCount | Устанавливает число столбцов в списке. |
| TextColumn | Устанавливает столбец в списке, элемент которого возвращает свойство Text |
| Text | Возвращает выбранный в списке элемент. |
| List | Возвращает элемент списка, стоящий на пересечении указанных строки и столбца. Синтаксис: List (row, column) |
| MultiSelect | Устанавливает способ выбора элементов списка. Допустимые значения: fmMultiSelectSingle – выбор только одного элемента fmMultiSelectMulti – разрешен выбор нескольких элементов fmMultiSelectExpended – разрешено использование клавиши Shift при выборе ряда последовательных элементов списка. |
| Selected | Допустимые значения: True – если элемент списка выбран; False – в противном случае. |
Ход работы:
1. Загрузить среду программирования VBA.
2.Создайте форму изображенную на рис.8.
3. Расположите на форме элемент список (ListBox).
4. Вставте в форму рамку (Frame). Для этого используйте элемент Frame палитры элементов управления. Замените значение свойства Caption этого объекта на слово “Операции”.
5. Расположите на форме поле (ТextBox1) для вывода результата. Подпишите его (объект Label), заменив свойства Caption на слово «Результат» (Рис.8).
6. Сохраните созданную на данный момент форму в своей папке.
Рис.8.
7. Запрограммируйте кнопку Заполнение списка.
Private Sub CommandButton1_Click()
With ListBox1
.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
.ListIndex = 0
.MultiSelect = fmMultiSelectMulti
End With
End Sub
8. Запрограммируйте кнопку Расчет.
Текст процедуры для этой кнопки предвидит проверку состояния одного из переключателей (включен или выключен). Один из переключателей всегда включен. Когда включается другой переключатель, предыдущий выключается.
Фрагмент программы для переключателя «Сумма»
Private Sub CommandButton2_Click()
End Sub
9. Аналогично запрограммируйте переключатели для определения произведения и среднего арифметического выделенных элементов одномерного массива. 10. Запрограммируйте кнопку Очистка списка
Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub
11. Запрограммируйте кнопку Очистка результата
12. Запустите программу и убедитесь, что переключатели и кнопки выполняют свои функции.
Результат работы программы представлен на рис.
Рис.9.
13.Сохраните работу в своей папке.
14. Продемонстрируйте работу преподавателю.
15. Оформите протокол, в котором необходимо привести тему работы, цель работы, таблицу свойств всех элементов управления с индивидуальными именами, экранные формы, тексты программ.
Таблица вариантов
| № | Задание |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму всех элементов массива; - количество положительных элементов массива; - произведение элементов кратных 5; - максимальный элемент из отрицательных. | |
| Задан одномерный массив А, состоящий из 10 элементов. Определить: - сумму положительных элементов массива; - количество нечетных элементов; - среднее арифметическое всех элементов; - минимальный элемент массива. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму по модулю отрицательных элементов массива; - количество четных элементов массива; - произведение положительных элементов; - максимальный элемент из положительных элементов массива. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму отрицательных элементов; - количество нечетных элементов массива; - среднее арифметическое элементов массива - минимальный элемент из отрицательных элементов массива. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму квадратов всех элементов массива; - количество нечетных элементов массива; - произведение положительных элементов; - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - количество элементов массива меньших 10; - среднее арифметическое отрицательных элементов массива; - максимальный элемент; - произведение положительных элементов. | |
| Задан одномерный массив А, состоящий из 10 элементов. Определить: - Сумму четных элементов массива - Количество элементов массива меньших 5; - среднее арифметическое отрицательных элементов массива - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму квадратов всех элементов массива; - количество четных элементов массива; - произведение по модулю отрицательных элементов массива; - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму квадратов отрицательных элементов массива; - количество нечетных элементов массива; - произведение элементов кратных 5; - максимальный элемент. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму квадратов элементов массива кратных 3; - количество отрицательных элементов массива; - произведение положительных элементов массива; - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 7 элементов. Определить: - сумму квадратов нечетных элементов массива; - количество элементов массива кратных 4; - произведение элементов массива; - среднее арифметическое всех элемнтов массива. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму элементов массива, кратных 6; - количество положительных элементов массива; - произведение четных элементов; - максимальный элемент из положительных. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму положительных элементов массива; - количество нечетных элементов; - среднее арифметическое элементов, кратных 5; - минимальный элемент массива. | |
| Задан одномерный массив А, состоящий из 7 элементов. Определить: - сумму элементов массива, кратных 3; - количество четных элементов массива; - произведение положительных элементов; - максимальный элемент. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму отрицательных элементов; - количество нечетных элементов массива; - среднее арифметическое элементов массива - минимальный элемент из отрицательных элементов массива. | |
| Задан одномерный массив А, состоящий из 10 элементов. Определить: - сумму элементов, кратных 5; - количество нечетных элементов массива; - среднее арифметическое элементов массива - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму отрицательных элементов; - количество элементов, кратных 3; - произведение элементов массива; - минимальный элемент из отрицательных элементов массива. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - произведение четных элементов; - количество отрицательных элементов массива; - сумму элементов массива кратных 7; - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму нечетных элементов; - количество положительных элементов массива; - среднее арифметическое элементов массива, кратных 6; - максимальный элемент массива. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму квадратов нечетных элементов массива; - количество элементов массива кратных 5; - произведение элементов массива; - среднее арифметическое отрицательных элементов массива. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму нечетных элементов массива; - количество положительных элементов массива; - произведение элементов, кратных 3; - максимальный элемент из положительных. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму положительных элементов массива; - количество нечетных элементов; - среднее арифметическое элементов, кратных 5; - минимальный элемент массива. | |
| Задан одномерный массив А, состоящий из 8 элементов. Определить: - сумму элементов массива, кратных 6; - количество нечетных элементов массива; - произведение отрицательных элементов; - максимальный элемент. | |
| Задан одномерный массив А, состоящий из 10 элементов. Определить: - Сумму четных элементов массива - Количество элементов массива меньших 5; - среднее арифметическое отрицательных элементов массива - минимальный элемент. | |
| Задан одномерный массив А, состоящий из 9 элементов. Определить: - сумму квадратов всех элементов массива; - количество четных элементов массива; - произведение по модулю отрицательных элементов массива; - минимальный элемент. |