Контрольные значения:

Расчетный размер пенсии	1365,53
Базовая часть пенсии	450
Ожидаемый период выплаты пенсии	144
Результат	131836,32

Действия:

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

ras_razmer = InputBox("Введите расчетный размер пенсии")

baz_chast = InputBox("Введите базовую часть пенсии")

og_period = InputBox("Введите ожидаемый период выплаты пенсии")

ras_kapital = Round((ras_razmer - baz_chast) * og_period)

soob = MsgBox(ras_kapital, , "Расчетный_пенсионный_капитал")

End Sub

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

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

б) Создать локальную процедуру для щелчка по данной кнопке;

в) Ввести процедуру вычисления расчетного размера пенсии с учетом того, что отношение среднемесячной зарплаты пенсионера за период к среднемесячной зарплате по РФ за период должно быть не выше 1,2:

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

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

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

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

sred_rf2001=1671

If sred_zarp/ sred_rf<=1,2 Then

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

Else

ras_razmer=Round(stag_koef* *1,2*sred_rf* sred_rf2001,2)

End If

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

End Sub

В этой процедуре используется условный оператор

If условие Then операторы1 Else операторы2 End If

Контрольные значения:

Стажевый коэффициент	0,71	0,55
Среднемесячная зарплата пенсионера за период	280,77	10000
Среднемесячная зарплата по РФ за период	243,94	1494,5
Результат	1365,53	1102,86

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

а) Заменить подпись на Базовую часть пенсии;

б)Создать локальную процедуру для щелчка по данной кнопке;

в) Ввести процедуру определения базовой части пенсии на 1 января 2002 г по количеству иждивенцев пенсионера с использованием оператора выбора Select Case:

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

kol_igd = InputBox("Введите количество иждивенцев пенсионера")

Select Case kol_igd

Case 0

baz_chast = 450

Case 1

baz_chast = 600

Case 2

baz_chast = 750

Case Is >= 3

baz_chast = 900

Case Else

MsgBox ("Неправильное значение")

End Select

If baz_chast >= 0 Then soob = MsgBox(baz_chast, , "Базовая часть пенсии на 01.01.2011")

End Sub

Контрольные значения:

Количество иждивенцев	-1	0	1	2	3	4
Результат	Неправильное значение	450	600	750	900	900

Вывод: в ходе выполнения лабораторной работы мы изучили операции по созданию глобальных и локальных процедур на языке Visual Basic и научились их применять.