Задание

1. Запустить Microsoft Access, создать базу данных Пенсия в папке D:\Пенсия.

Действия: в меню Файл-Создать-Новая база данных, выбрать папку, указать имя создаваемого файла БД, затем нажать кнопку «Создать».

2. Создать глобальную (Public) процедуру, выводящую сообщение, выполнив следующие действия:

а) Выбрать вкладку Модули и нажать кнопку Создать;

б) В открывшемся окне редактора Visual Basic выбрать в меню Insert-Procedure-Name: Сообщение-Type: Sub – Scope: Public – ОК;

в) Между появившимися строками начала и конца процедуры вставить функцию вывода диалогового окна:

MsgBox(“Это сообщение глобальной процедуры, доступной для всех процедур!”)

г) Проверить работу процедуры, запустив ее нажатием F5;

д) Сохранить модуль с данной процедуры: File – Save Пенсия – Имя модуля: Module1 – ОК.

3. Создать форму в режиме конструктора, в котором выполнить следующие действия:

а) В области данных создать кнопку и закрыть окно «Создание кнопок» нажатием кнопки Отмена;

б) Заменить подпись Кнопка0 на Сообщение1;

в) Создать локальную (Private) процедуру для щелчка по данной кнопке, щелкнув по ней правой кнопкой мыши – Обработка событий – Программы – ОК;

г) Между появившимися строками начала и конца процедуры вставить вызов ранее созданной процедуры Сообщение

д) Закрыть (или свернуть) окно редактора Visual Basic;

е) Сохранить форму с именем КнопкиVBA и закрыть;

ж) Открыть форму КнопкиVBA и проверить действие кнопки Сообщение1.

Действия:

Private Sub Кнопка0_Click()

MsgBox ("Это сообщение глобальной процедуры, доступной для всех процедур!")

End Sub

4. Создать в данной форме вторую кнопку и выполнить следующие действия:

а) Закрыть окно «Создание кнопки» нажатием кнопки Отмена

б) Заменить подпись на Сообщение2;

в) Создать локальную процедуру для щелчка по данной кнопке, щелкнув по ней правой кнопкой мыши – Обработка событий – Программы – ОК;

г) Между появившимися строками начала и конца процедуры вставить функцию вывода диалогового окна:

MsgBox(“Это сообщение локальной процедуры, доступной для всех процедур!”)

д) Закрыть (или свернуть) окно редактора Visual Basic;

е) Сохранить форму и закрыть;

ж) Открыть форму КнопкиVBA и проверить действие кнопки Сообщение2.

Действия:

Private Sub Кнопка1_Click()

MsgBox ("Это сообщение локальной процедуры, доступной для процедур только этой формы!")

End Sub

5. Создать в данной форме третью кнопку и выполнить следующие действия:

а) Закрыть окно «Создание кнопки»

б) Заменить подпись на Расчетный размер пенсии;

в) Создать локальную процедуру для щелчка по данной кнопке, щелкнув по ней правой кнопкой мыши – Обработка событий – Программы – ОК;

г) Ввести процедуру вычисления расчетного размера пенсии:

Private Sub Кнопка2_Click()

stag_koef=InputBox(“Введите стажевый коэффициент”)

sred_zarp= InputBox(“Введите среднемесячную зарплату пенсионера за период”)

sred_rf= InputBox(“Введите среднемесячную зарплату по РФ за период”)

sred_rf2001=1671

ras_razmer=Round(stag_koef* sred_zarp/ sred_rf* sred_rf2001,2)

soob=MsgBox(ras_razmer, ,”Расчетный размер пенсии”)

End Sub

где функция InputBox(сообщение) служит для ввода значения переменной левой части оператора присваивания.

д) Закрыть (или свернуть) окно редактора Visual Basic;

е) Сохранить форму и закрыть;

ж) Открыть форму КнопкиVBA и проверить действие кнопки, введя следующие значения:

Стажевый коэффициент	0,71
Среднемесячная зарплата пенсионера за период	280,77
Среднемесячная зарплата по РФ за период	243,94

Должен быть получен результат: 1365,53

6. Создать в данной форме самостоятельно четвертую кнопку с подписью Расчетный_пенсионный_капитал, щелчок по которой выполняет процедуру вычисления расчетного пенсионного капитала до 2002 г по формуле:

ras_kapital=( ras_razmer-baz_chast)*og_period

где ras_razmer – расчетный размер пенсии, baz_chast – базовая часть пенсии, og_period – ожидаемый период выплаты пенсии.