Private Sub CommandButton3_Click()

Лабораторная работа № 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 элементов. Определить: - сумму квадратов всех элементов массива; - количество четных элементов массива; - произведение по модулю отрицательных элементов массива; - минимальный элемент.