Задание
Н айти все натуральные числа 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