Практикум по применению объектно-ориентированного программирования в программе Microsoft Excel

Задание

Н айти все натуральные числа n, меньшие 30, для которых ( –n)

кратно 7.

Результат программы

1 действия.

Открываем лист 2.

Во вкладке разработчик: Вставить - Элементы ActivX (кнопка-CommandButton1), рисуем кнопку

Нажмите один раз на кнопку, чтобы она отметилась и наипанели инструментов «Свойства», в появившимся окне мы можем поменять название, цвет, шрифт.

Дважды нажмите на кнопку откроется окно VBA, пишем код программы

Private Sub CommandButton1_Click()

U serForm2.Show

End Sub

2 действия.

Создаем Новую Форму (UserForm).

В меню Toolbox выбираем Label1 размещаем его на нашей форме

В ырвниваем текст по центру.

Добавляем второй элемент Label2, в свойствах Caption удаляем название

Т еперь добавляем 3 элемента Button.

1 кнопка меняем Name на «Calc «, Caption на «Расчитать». Нажимаем два раза пишем код программы

Private Sub calc_Click()

For n = 1 To 29

If (2 ^ n - n) Mod 7 = 0 Then Label2.Caption = Label2.Caption + Str(n) + " "

Next n

End Sub

2 кнопка меняем Name на «Clean «, Caption на «Очистить». Нажимаем два раза пишем код программы

Private Sub clean_Click()

Label2.Caption = ""

End Sub

3 кнопка меняем Name на «exitForm «, Caption на «Выход». Нажимаем два раза пишем код программы

Private Sub exitForm_Click()

End

End Sub