Работа 1. Создание форм (диалоговых окон) в редакторе VBA.
Процедуры обработки событий. Оператор MsgBox.

См. методички «Основы работы в редакторе VBA » и «Ввод/вывод в программах на VBA »

В документе Excel требуется создать одно диалоговое окно с заданными объектами.

Например:

Для создания такого диалогового окна с одной рамкой, тремя переключателями, надписью, полем ввода и командной кнопкой нужно:

1. открыть свой документ Excel

2. вызвать Редактор Visual Basic (нажать Alt+F11)

3. добавить в проект новую форму (т.е. окно диалога), меню Вставка(Insert)UserForm

4. растянуть мышью предлагаемый прямоугольник до нужного размера;

5. ввести заголовок «Пример окна диалога» в окне свойств Properties, в строке Caption
   (если окна свойств на экране нет, то можно щелкнуть правой кнопкой мыши на окне диалога и в контекстном меню выбрать Properties)

6. на панели элементов щелкаем рамку (Frame) и с нажатой кнопкой мыши растягиваем прямоугольник на диалоговом окне
   (если панели элементов нет, то команда меню View(Вид) Toolbox (Панель элементов) )

7. в окне свойств Properties для рамки, в строке Caption вводим «Приветствие»;

8. на панели элементов щелкаем переключатель (OptionButton) и с нажатой кнопкой мыши растягиваем прямоугольник внутри рамки, затем в окне его свойств, в строке Caption вводим «Доброе утро»;

9. повторяем создание переключателя дважды («Добрый день» и «Добрый вечер»);

10. на панели элементов щелкаем командную кнопку (CommandButton) и мышью растягиваем прямоугольник внизу на диалоговом окне, затем в окне его свойств, в строке Caption вводим «Старт»;

11. на панели элементов щелкаем надпись (Label) и мышью растягиваем прямоугольник, затем в окне его свойств, в строке Caption вводим «Введите имя:», в строке Font нажимаем … и задаем Times New Roman 14 жирный

12. на панели элементов щелкаем поле ввода (TextBox) и мышью растягиваем прямоугольник

13. для «раскрашивания» элементов диалогового окна надо их «щелкнуть» мышью и в окне свойств Properties менять значения BackColor (цвет фона) и ForeColor (цвет текста), вкладка Palette (палитра)

Когда диалоговое окно будет создано, надо:

• сохранить его (кнопка в виде дискеты на стандартной панели инструментов);

• запустить: сделать его активным (щелкнуть на нем мышью) и нажать F5,
  можно попробовать щелкать переключатели, вводить текст в поле ввода и т.п.;

• нажать PrintScreen, чтобы копия экрана попала в буфер обмена (для отчета);

• закрыть окно диалога;

• открыть документ Word с отчетом, с новой страницы набрать новый заголовок
  Задание 1. Создание диалогового окна в редакторе VBA. Оператор MsgBox.
  и вставить рисунок из буфера обмена

Для каждого события (например, открытие документа или нажатие командной кнопки в диалоговом окне) в проекте есть «заготовки» программ, которые будут работать при наступлении соответствующего события. Сначала все эти программы (процедуры) пустые, т.е. они состоят только из строки заголовка и строки окончания. Например, процедура обработки события – щелчок мышью по командной кнопке CommandButton1 ­– сначала выглядит так:

Sub CommandButton1_Click()

End Sub

Если заполнить эту процедуру операторами языка VBA, то все они будут выполняться каждый раз при щелчке мышью по командной кнопке CommandButton1. В этой работе применяется один оператор MsgBox – вывод сообщения.

Sub CommandButton1_Click()

MsgBox “Добрый день!”, vbOKOnly, “Команда1”

End Sub

Для каждой командной кнопки в своём варианте диалога нужно задать процедуру с одним оператором MsgBox с заданным сообщением / значком / кнопками.

В отчет по заданию 1 скопировать тексты процедур для всех командных кнопок.

Вариант 1

цвет фона окна диалога – бледно-голубой;

шрифт Фамилии и группы – Arial 14 жирный;

шрифт командных кнопок, поля ввода и рамки – Times New Roman 12 жирный;

цвет шрифта командных кнопок – фиолетовый;

Написать процедуры обработки событий для командных кнопок:

при щелчке мышью по кнопке «Команда1» выводить сообщение:	при щелчке мышью по кнопке «Команда2» выводить сообщение:	при щелчке мышью по кнопке «Команда3» выводить сообщение:

Вариант 2

цвет фона окна диалога – бледно-желтый;

шрифт Фамилии и группы – Arial 16;

шрифт командных кнопок, поля ввода и рамки –

– Times New Roman 12 жирный;

цвет шрифта командных кнопок – красный;

Написать процедуры обработки событий для командных кнопок:

при щелчке мышью по кнопке «Команда1» выводить сообщение:	при щелчке мышью по кнопке «Команда2» выводить сообщение:

1. Вариант 3

5. цвет фона окна диалога ­ – бледно-розовый;

6. шрифт Фамилии и группы – Arial 14 жирный;

7. шрифт командных кнопок, поля ввода и рамки –

8. – Times New Roman 12 жирный;

9. цвет шрифта командных кнопок – зеленый;

1. Написать процедуры обработки событий для командных кнопок:

при щелчке мышью по кнопке «Команда1» выводить сообщение:	при щелчке мышью по кнопке «Команда2» выводить сообщение:	при щелчке мышью по кнопке «Команда3» выводить сообщение:

В ариант 4

3. цвет фона окна диалога ­ – бледно-зеленый;

4. шрифт Фамилии и группы – Arial 16;

5. шрифт командных кнопок, поля ввода и рамки

6. – Times New Roman 12 жирный;

7. цвет шрифта командных кнопок – синий;

Написать процедуры обработки событий для командных кнопок:

при щелчке мышью по кнопке «Команда1» выводить сообщение:	при щелчке мышью по кнопке «Команда2» выводить сообщение:	при щелчке мышью по кнопке «Команда3» выводить сообщение:	при щелчке мышью по кнопке «Команда4» выводить сообщение:

Работа 2. Линейные программы. Два способа ввода/вывода.

Создать диалоговое окно

- с командной кнопкой для решения первой задачи
(ввод/вывод с помощью InputBox / MsgBox)

и

- с необходимыми объектами для решения второй задачи
(ввод/вывод с помощью полей ввода и надписей)

Написать программы для решения первой и второй задач.

Пример

1. Программа, которая вычисляет формулу
   , где значения a и b вводятся с клавиатуры.
   
   

Sub CommandButton1_Click()

Dim a As Double, b As Double, f As Double

a = InputBox("a:")

b = InputBox("b:")

f = Exp(-0.25 * a) / Log(a + b) * Sqr(a + b)

MsgBox "значение формулы: " & f

End Sub

1. Программа, которая вычисляет длину гипотенузы и периметр прямоугольного треугольника по введенным длинам катетов.
   
   

Sub CommandButton2_Click()

Dim a As Single, b As Single, с As Single, p As Single

a = Val(TextBox1.Text)

b = Val(TextBox2.Text)

c = Sqr(a^2 + b^2)

Label4.Caption = Format(c, “#.000”)

p = a + b + c

Label5.Caption = Format(p, “#.000”)

End Sub

В отчет включить:

• название работы

• постановку задачи со своим вариантом

• 2 образа экрана с работающим диалоговым окном (с различными исходными данными и ответами)

• тексты 2 программ:
  процедуры CommandButton1_Click() и CommandButton2_Click()

№1

1. при a=-3.2, b=0.03 должно получиться –0.12

2. Вычислить площадь полукольца по введенным с клавиатуры радиусам.

№2

1. при a=6.8, b=2.3 должно получиться –18.15818

2. Вычислить объем круглого прямого конуса по введенным с клавиатуры радиусу основания и высоте.

№3

1. при a=10.5, b=3.257 должно получиться 2.174875

2. Вычислить площадь равностороннего треугольника по введенной с клавиатуры длине стороны.

№4

1. при a=1.23, b=6.79 должно получиться –11970.866

1. Вычислить площадь прямоугольного треугольника по введенным с клавиатуры длинам гипотенузы и одного катета.

№5

1. при a=-2.56, b=3.284 должно получиться 1.09053

2. Вычислить объем пирамиды, в основании которой лежит квадрат. Значения высоты и стороны квадрата ввести с клавиатуры.

№6

1. при a=5.8, b=-65 должно получиться –91.985815

2. Вычислить периметр правильного n-угольника, описанного около окружности. Значения n и радиуса ввести с клавиатуры.

№7