Работа с массивами. Свойства первого комбинированного списка. Изменение свойств списков. Пример оформления пользовательской формы

Программирование

(VBA MS Excel 2007)

Лабораторная работа 10

"Массивы"

Порядок выполнения работы:

Задание 1

"Работа с массивами"

1.  Запустить MS Excel 2007, проверить наличие вкладки "Разработчик".

2.  Создать чистую книгу.

3.  Перейти в редактор VBA.

4.  Добавить пользовательскую форму (UserForm1).

5.  Добавить методом перетаскивания на пользовательскую форму инструменты: 4 командные кнопки (CommandButton), 5 надписей (Label) и 2 комбинированных списка (ComboBox).

 

6.  Измените надпись на форме. Для этого щелкните на форму до появления маркеров и в окне свойств измените свойство Caption (сотрите UserForm1 и введите с клавиатуры: Массивы). Проверьте изменения.

7.  Измените первую надпись (Label1). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label1 и набейте с клавиатуры: Массив m). Проверьте изменения.

8.  В этом же инструменте (Label1) измените свойство:

-  TextAlign (выравнивание текста): 2, по центру (Center).

9.  Свойства первого комбинированного списка (ComboBox1) не изменять.

10. Измените надпись на первой кнопке. Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите CommandButton1 и набейте с клавиатуры: Ввод массива). Проверьте изменения.

11. Измените надпись на второй кнопке. Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите CommandButton2 и набейте с клавиатуры: Максимальный и минимальный элементы). Проверьте изменения.

12. Измените у второй кнопки свойство WordWrap (перенос текста по словам) на True.

Проверьте изменения.

13. Измените вторую надпись (Label2). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label2 и оставьте пустой). Проверьте изменения.

14. В этом же инструменте (Label2) измените свойство:

-  BorderStyle (стиль границы): выберите 1 (Single).

15. Измените третью надпись (Label3). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label3 и оставьте пустой). Проверьте изменения.

16. В этом же инструменте (Label3) измените свойство:

-  BorderStyle (стиль границы): выберите 1 (Single).

17. Измените четвертую надпись (Label4). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label1 и набейте с клавиатуры: Элементы массива, кратные числу 7). Проверьте изменения.

18. В этом же инструменте (Label4) измените свойство:

-  TextAlign (выравнивание текста): 2, по центру (Center).

19. Свойства второго комбинированного списка (ComboBox2) не изменять.

20. Измените надпись на третьей кнопке. Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите CommandButton3 и набейте с клавиатуры: Элементы массива, кратные 7). Проверьте изменения.

21. Измените пятую надпись (Label5). Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите Label5 и оставьте пустой). Проверьте изменения.

22. В этом же инструменте (Label5) измените свойство:

-  BorderStyle (стиль границы): выберите 1 (Single).

23. Измените надпись на четвертой кнопке. Для этого щелкните на нее до появления маркеров и в окне свойств измените свойство Caption (сотрите CommandButton4 и набейте с клавиатуры: Сумма массива). Проверьте изменения.

Пример оформления пользовательской формы:

24. Проверьте результаты изменения свойств всех инструментов и формы. Общий список изменений:

№	Инструмент	Свойства
1	Label1	Caption: Массив m TextAlign: 2 (выравнивание по центру)
2	ComboBox1	Не изменялись
3	CommandButton1	Caption: Ввод массива
4	CommandButton2	Caption: Максимальный и минимальный элементы WordWrap: True (переносить текст по словам)
5	Userform1	Caption: Массивы
6	Label2	Caption: Очистить и оставить пустым Borderstyle: 1
7	Label3	Caption: Очистить и оставить пустым Borderstyle: 1
8	Label4	Caption: Элементы массива, кратные числу 7 TextAlign: 2 (выравнивание по центру)
9	ComboBox2	Не изменялись
10	CommandButton3	Caption: Элементы массива, кратные 7
11	Label5	Caption: Очистить и оставить пустым Borderstyle: 1
12	CommandButton4	Caption: Сумма массива

25. Кликните два раза мышью на первую командную кнопку "Ввод массива" и перейдите в окно программного кода (Code).

26. Выберите раздел описания переменных General.

27. Введите с клавиатуры:

28. Перейдите в процедуру обработки командной кнопки:

Private Sub CommandButton1_Click()

29. Наберите с клавиатуры программный код:

ComboBox1.Clear

For i = 1 To 20

m(i) = Int(Rnd * 20) - 5

ComboBox1.AddItem "m(" + CStr(i) + ") = " + CStr(m(i))

Next i

Проверьте введенный текст. Например, для рассматриваемой задачи:

30. Перейдите в процедуру обработки второй командной кнопки "Максимальный и минимальный элементы":

Private Sub CommandButton2_Click()

31. Введите с клавиатуры программный код:

max = m(1)

min = m(1)

For i = 2 To 20

If m(i) > max Then

max = m(i)