 |
Инструкция работы программы для пользователя
|
|
|
|
КУРСОВОЙ ПРОЕКТ
по дисциплине
Программирование
(Углубленный курс)
на тему:
«Разработка калькулятора для расчета КАСКО»
Выполнила: студентка 106 группы
факультета экономики и финансов
Ардемасова Анна
Проверил: Барамидзе Н.Н.
Москва 2015
Оглавление
Введение. 3
1. Условие задачи. 4
2. Разработка алгоритма программы.. 5
3. Вариант использования программы.. 19
4. Заключение. 20
СПИСОК ЛИТЕРАТУРЫ.. 21
ПРИЛОЖЕНИЕ. 22
Постановка задачи
Цель курсового проектирования
Целью выполнения данного курсового проекта является разработка автоматизированного калькулятора расчета процентной ставки и суммы страхования по страховой системе КАСКО, учитывая современные ГОСТы и возможности транспортных средств.
Задачи курсового проектирования
В ходе курсового проектирования были решены следующие задачи:
1) Составлена схема реализации алгоритма расчета тарифа страхования и цены стразового полиса КАСКО
2) Составлена блок-схема программы
3) Написан код программы VBA в приложении Microsoft Excel при помощи Userform
4) На листе Excel организована база данных для отображения данных, выбираемых страховщиком
5) Рассчитан контрольный пример для проверки работоспособности программы.
Данная курсовая работа выполнена на языке программирования VBA, с использованием программного продукта Excel. Visual Basic For Applications – это сочетание одного из самых простых языков программирования и всех вычислительных возможностей Excel. С помощью VBA можно легко и быстро создавать разнообразные приложения, даже не являясь специалистом в области программирования. VBA содержит графическую среду, позволяющую наглядно конструировать экранные формы и управляющие элементы.
|
|
|
Каско страхование автомобилей или других средств транспорта (судов, самолётов, вагонов) от ущерба, хищения или угона. Не включает в себя страхование перевозимого имущества (карго), ответственности перед третьими лицами и т. д.
6)
Условие задачи
Allianz - один из ведущих интегрированных поставщиков страховых и финансовых услуг в мире. Компания с 1890 года обеспечивает надежной страховой защитой миллионы клиентов по всему миру. Более 144 тысяч сотрудников группы Allianz по всему миру обслуживают около 85 млн. клиентов в примерно 70 странах.
Процентная ставка будет рассчитываться в зависимости от данных следующих полей:
1.Вид страхования
2. Информация о кредите
3.Возраст ТС
4.Ввести возраст страховщика
5.Водительский стаж
6.Мощность ТС
7.Регион регистрации
8.Наличие аварий
9.Количество водителей
10.Срок действия полиса
Процент высчитывается от вводимой пользователем стоимости ТС и состоит из суммы процентной ставки по каждому из полей.
Стоимость полиса высчитывается как процент от стоимости ТС, введенной пользователем.
Разработка алгоритма программы
Алгоритм — набор инструкций, описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.
Рис.1 «Общая блок-схема алгоритма работы программы»
Вариант использования программы
«Угон»: Р = 5
«Кредит»: Р = 5 + 0,2 = 5,2
«> 6 лет»: Р = 5,2 + 2 = 7,2
«32»: Р = Р = 7,2
«7»: Р = 7,2 + 0,1 = 7,3
«140»: Р = 7,3 + 0,9 = 8,2
«Ставропольский край», «Кисловодск»:
Р = 8,2 + 1 = 9,2
«НЕТ»: Р = 9,2
«1 водитель»: Р = 9,2
«от 3 о 9 мес»: Р = 9,2 – 0,75 = 8,45
«241 320»
Р = 8,45
Стоимость СП = 20 391
Заключение
В данном курсовом проекте был составлен калькулятор расчета КАСКО страхования с учетом современных ГОСТов и норм автомобильного страхования. Приложение было выполнено в приложении Microsoft Exel с помощью Visual Basic.
|
|
|
Задачи и цели курсового проекта были выполнены. Калькулятор готов к использованию.
СПИСОК ЛИТЕРАТУРЫ
1. П. Эйткен, Интенсивный курс программирования в Excel за выходные. – М.: Диалектика, 2004. –240 с.
2. В. Г. Кузьменко, Программирование на VBA 2002 – М: Бином-Пресс, 2002. – 760 с.
3. Уокенбах Дж, Подробное руководство по созданию формул в Excel. – М: Издательский дом «Вильямс», 2002. –624 с.
4. Методические рекомендации
Интернет-ресурсы:
1. http://kaskometr.ru/straxovie/company/ - онлайн-калькуляторы страховых компаний.
2. http://www.allianz.ru/ru/moscow/about/ - сайт страховой компании Allianz
ПРИЛОЖЕНИЕ 1
Private Sub CommandButton1_Click()
P = 5
Worksheets("KASKO").Cells(2, 2) = "Угон"
End Sub
Private Sub CommandButton2_Click()
P = 6
Worksheets("KASKO").Cells(2, 2) = "Угон + ущерб"
End Sub
Private Sub CommandButton3_Click()
P = 4
Worksheets("KASKO").Cells(2, 2) = "Ущерб"
End Sub
Private Sub CommandButton4_Click()
P = P
Worksheets("KASKO").Cells(3, 2) = "Собственные средства"
End Sub
Private Sub CommandButton5_Click()
P = P + 0.2
Worksheets("KASKO").Cells(3, 2) = "Кредит"
End Sub
Private Sub CommandButton12_Click()
V = InputBox("Введите возраст ТС", "Калькулятор КАСКО")
Worksheets("KASKO").Cells(4, 2) = V
If V > 6 Then
P = P + 2
Else: P = P
End If
End Sub
Private Sub CommandButton13_Click()
V2 = InputBox("Введите возраст страховщика", "Калькулятор КАСКО")
Worksheets("KASKO").Cells(5, 2) = V2
If V2 < 21 Or V2 > 60 Then
P = P + 1
Else: P = P
End If
End Sub
Private Sub CommandButton14_Click()
Ct = InputBox("Водительский стаж")
Worksheets("KASKO").Cells(6, 2) = Ct
If Ct < 5 Then P = P + 1.1
If Ct > 10 Then
P = P
Else: P = P + 0.1
End If
End Sub
Private Sub CheckBox1_Click() 'Устанавливаем зависимость между ScrollBar1 и CheckBox1
If CheckBox1.Value = True Then
ScrollBar1.Enabled = False
Else: ScrollBar1.Enabled = True
TextBox2.Locked = True
End If
End Sub
Private Sub ScrollBar1_Change() 'устанавливаем диапозон значений ScrollBar1 и зависимость между ScrollBar1 и TextBox2
ScrollBar1.Min = 0
ScrollBar1.Max = 1500
TextBox2.Value = ScrollBar1.Value
If ScrollBar1.Value < 50 Then P = P + 0.6
If ScrollBar1.Value > 150 Then
P = P + 1.6
Else: P = P + 0.9
End If
Worksheets("KASKO").Cells(7, 2) = ScrollBar1
End Sub
Private Sub UserForm_Initialize() 'Устанавливаем значения, которые могут принимать ComboBox 5,6
ComboBox5.AddItem "Москва"
ComboBox5.AddItem "Московская область"
ComboBox5.AddItem "Республика Адыгея"
ComboBox5.AddItem "Республика Башкортостан"
ComboBox5.AddItem "Республика Бурятия"
|
|
|
ComboBox5.AddItem "Республика Алтай"
ComboBox5.AddItem "Республика Дагестан"
ComboBox5.AddItem "Республика Ингушетия"
ComboBox5.AddItem "Республика Кабардино-Балкарская"
ComboBox5.AddItem "Республика Калмыкия"
ComboBox5.AddItem "Республика Карачаево-Черкесская"
ComboBox5.AddItem "Республика Карелия"
ComboBox5.AddItem "Республика Коми"
ComboBox5.AddItem "Республика Карелия"
ComboBox5.AddItem "Республика Марий Эл"
ComboBox5.AddItem "Республика Мордовия"
ComboBox5.AddItem "Республика Саха(Якутия)"
ComboBox5.AddItem "Республика Северная Осетия (Алания)"
ComboBox5.AddItem "Республика Татарстан"
ComboBox5.AddItem "Республика Тыва"
ComboBox5.AddItem "Республика Удмуртская"
ComboBox5.AddItem "Республика Хакасия"
ComboBox5.AddItem "Республика Чувашская"
ComboBox5.AddItem "Алтайский край"
ComboBox5.AddItem "Краснодарский край"
ComboBox5.AddItem "Красноярский край"
ComboBox5.AddItem "Приморский край"
ComboBox5.AddItem "Ставропольский край"
ComboBox5.AddItem "Хабаровский край"
ComboBox5.AddItem "Амурская область"
ComboBox5.AddItem "Архангельская область"
ComboBox5.AddItem "Астраханская область"
ComboBox5.AddItem "Белгородская область"
ComboBox5.AddItem "Брянская область"
ComboBox5.AddItem "Владимирская область"
ComboBox5.AddItem "Волгоградская область"
ComboBox5.AddItem "Вологодская область"
ComboBox5.AddItem "Воронежская область"
ComboBox5.AddItem "Ивановская область"
ComboBox5.AddItem "Иркутская область"
ComboBox5.AddItem "Калининградская область"
ComboBox5.AddItem "Калужская область"
ComboBox5.AddItem "Кемеровская область"
ComboBox5.AddItem "Кировская область"
ComboBox5.AddItem "Костромская область"
ComboBox5.AddItem "Курганская область"
ComboBox5.AddItem "Курская область"
ComboBox5.AddItem "Липецкая область"
ComboBox5.AddItem "Магаданская область"
ComboBox5.AddItem "Мурманская область"
ComboBox5.AddItem "Нижегородская область"
ComboBox5.AddItem "Новгородская область"
ComboBox5.AddItem "Новосибирская область"
ComboBox5.AddItem "Омская область"
ComboBox5.AddItem "Оренбургская область"
ComboBox5.AddItem "Орловская область"
ComboBox5.AddItem "Пензенская область"
|
|
|
ComboBox5.AddItem "Пермский край"
ComboBox5.AddItem "Псковская область"
ComboBox5.AddItem "Ростовская область"
ComboBox5.AddItem "Рязанская область"
ComboBox5.AddItem "Самарская область"
ComboBox5.AddItem "Саратовская область"
ComboBox5.AddItem "Сахалинская область"
ComboBox5.AddItem "Свердловская область"
ComboBox5.AddItem "Смоленская область"
ComboBox5.AddItem "Тверская область"
ComboBox5.AddItem "Томская область"
ComboBox5.AddItem "Тульская область"
ComboBox5.AddItem "Тюменская область"
ComboBox5.AddItem "Ульяновская область"
ComboBox5.AddItem "Челябинская область"
ComboBox5.AddItem "Забайкальский край"
ComboBox5.AddItem "Ярославская область"
ComboBox5.AddItem "Еврейская автономная область"
ComboBox5.AddItem "Камчатский край"
ComboBox5.AddItem "Чукотский автономный округ"
ComboBox5.AddItem "Ямало-Ненецкий АО"
ComboBox5.AddItem "Чеченская республика"
ComboBox6.AddItem "от 3х до 9 месяцев"
ComboBox6.AddItem "больше 10 месяцев"
End Sub
Private Sub ComboBox5_Change()
Worksheets("KASKO").Cells(8, 2) = ComboBox5.Value
With Worksheets("БАЗА")
Select Case ComboBox5.Value
Case "Республика Адыгея"
ComboBox8.List = Worksheets("БАЗА").Range("B1:B2").Value 'полный путь
Case "Республика Башкортостан"
ComboBox8.List =.Range("B3:B15").Value ' или with
Case "Республика Бурятия"
ComboBox8.List =.Range("B16:B17").Value
Case "Республика Алтай"
ComboBox8.List =.Range("B18:B19").Value
Case "Республика Дагестан"
ComboBox8.List =.Range("B20:B25").Value
Case "Республика Ингушетия"
ComboBox8.List =.Range("B26:B28").Value
Case "Республика Кабардино-Балкарская"
ComboBox8.List =.Range("B29:B31").Value
Case "Республика Калмыкия"
ComboBox8.List =.Range("B32:B33").Value
Case "Республика Карачаево-Черкесская"
ComboBox8.List =.Range("B34:B35").Value
Case "Республика Карелия"
ComboBox8.List =.Range("B36:B37").Value
Case "Республика Коми"
ComboBox8.List =.Range("B38:B43").Value
Case "Республика Марий Эл"
ComboBox8.List =.Range("B44:B46").Value
Case "Республика Мордовия"
ComboBox8.List =.Range("B47:B49").Value
Case "Республика Саха(Якутия)"
ComboBox8.List =.Range("B50:B52").Value
Case "Республика Северная Осетия(Алания)"
ComboBox8.List =.Range("B53:B54").Value
Case "Республика Татарстан"
ComboBox8.List =.Range("B55:B64").Value
Case "Республика Тыва"
ComboBox8.List =.Range("B65:B66").Value
Case "Республика Удмуртская"
ComboBox8.List =.Range("B67:B71").Value
Case "Республика Хакасия"
ComboBox8.List =.Range("B72:B75").Value
Case "Республика Чувашская"
ComboBox8.List =.Range("B76:B79").Value
Case "Алтайский край"
ComboBox8.List =.Range("B80:B85").Value
Case "Краснодарский край"
ComboBox8.List =.Range("B86:B101").Value
Case "Красноярский край"
ComboBox8.List =.Range("B102:B111").Value
Case "Приморский край"
ComboBox8.List =.Range("B112:B117").Value
Case "Ставропольский край"
ComboBox8.List =.Range("B118:B125").Value
|
|
|
Case "Хабаровский край"
ComboBox8.List =.Range("B126:B128").Value
Case "Амурская область"
ComboBox8.List =.Range("B129:B131").Value
Case "Архангельская область"
ComboBox8.List =.Range("B132:B135").Value
Case "Астраханская область"
ComboBox8.List =.Range("B136:B137").Value
Case "Белгородская область"
ComboBox8.List =.Range("B138:B141").Value
Case "Брянская область"
ComboBox8.List =.Range("B142:B144").Value
Case "Владимирская область"
ComboBox8.List =.Range("B145:B150").Value
Case "Волгоградская область"
ComboBox8.List =.Range("B151:B155").Value
Case "Вологодская область"
ComboBox8.List =.Range("B156:B158").Value
Case "Воронежская область"
ComboBox8.List =.Range("B159:B163").Value
Case "Ивановская область"
ComboBox8.List =.Range("B164:B167").Value
Case "Иркутская область"
ComboBox8.List =.Range("B168:B174").Value
Case "Калининградская область"
ComboBox8.List =.Range("B175:B176").Value
Case "Калужская область"
ComboBox8.List =.Range("B177:B179").Value
Case "Кемеровская область"
ComboBox8.List =.Range("B180:B187").Value
Case "Кировская область"
ComboBox8.List =.Range("B188:B189").Value
Case "Костромская область"
ComboBox8.List =.Range("B190:B191").Value
Case "Курганская область"
ComboBox8.List =.Range("B192:B193").Value
Case "Курская область"
ComboBox8.List =.Range("B194:B196").Value
Case "Липецкая область"
ComboBox8.List =.Range("B197:B199").Value
Case "Магаданская область"
ComboBox8.List =.Range("B200:B201").Value
Case "Мурманская область"
ComboBox8.List =.Range("B202:B206").Value
Case "Нижегородская область"
ComboBox8.List =.Range("B207:B214").Value
Case "Новгородская область"
ComboBox8.List =.Range("B215:B217").Value
Case "Новосибирская область"
ComboBox8.List =.Range("B218:B222").Value
Case "Оренбургская область"
ComboBox8.List =.Range("B223:B230").Value
Case "Орловская область"
ComboBox8.List =.Range("B231:B234").Value
Case "Пензенская область"
ComboBox8.List =.Range("B235:B238").Value
Case "Пермский край"
ComboBox8.List =.Range("B239:B246").Value
Case "Псковская область"
ComboBox8.List =.Range("B247:B249").Value
Case "Ростовская область"
ComboBox8.List =.Range("B250:B259").Value
Case "Рязанская область"
ComboBox8.List =.Range("B260:B261").Value
Case "Самарская область"
ComboBox8.List =.Range("B262:B268").Value
Case "Саратовская область"
ComboBox8.List =.Range("B269:B274").Value
Case "Сахалинская область"
ComboBox8.List =.Range("B275:B276").Value
Case "Свердловская область"
ComboBox8.List =.Range("B277:B283").Value
Case "Смоленская область"
ComboBox8.List =.Range("B284:B289").Value
Case "Тверская область"
ComboBox8.List =.Range("B290:B294").Value
Case "Томская область"
ComboBox8.List =.Range("B295:B297").Value
Case "Тульская область"
ComboBox8.List =.Range("B298:B303").Value
Case "Тюменская область"
ComboBox8.List =.Range("B304:B307").Value
Case "Ульяновская область"
ComboBox8.List =.Range("B308:B310").Value
Case "Челябинская область"
ComboBox8.List =.Range("B311:B319").Value
Case "Забайкальский край"
ComboBox8.List =.Range("B320:B321").Value
Case "Ярославская область"
ComboBox8.List =.Range("B322:B324").Value
Case "Еврейская автономная область"
ComboBox8.List =.Range("B325:B326").Value
Case "Камчатский край"
ComboBox8.List =.Range("B327:B328").Value
Case "Ямало-Ненецкий округ"
ComboBox8.List =.Range("B329:B331").Value
End Select
End With
Worksheets("KASKO").Cells(8, 3) = ComboBox8.Value
End Sub
Private Sub CommandButton6_Click()
P = P + 0.2
Worksheets("KASKO").Cells(9, 2) = "да"
End Sub
Private Sub CommandButton7_Click()
P = P
Worksheets("KASKO").Cells(9, 2) = "НЕТ"
End Sub
Private Sub CommandButton8_Click()
P = P
Worksheets("KASKO").Cells(10, 2) = 1
End Sub
Private Sub CommandButton9_Click()
P = P + 1
Worksheets("KASKO").Cells(10, 2) = 2
End Sub
Private Sub CommandButton10_Click()
P = P + 1.8
Worksheets("KASKO").Cells(10, 2) = "НЕОГРАНИЧЕННОЕ"
End Sub
Private Sub CommandButton15_Click()
St = InputBox("Введите стоимость ТС", "КАСКО")
Worksheets("KASKO").Cells(12, 2) = St
End Sub
Private Sub CommandButton11_Click()
If ComboBox5 = "Москва" Then 'зависимость процента от региона
P = P + 2
ElseIf ComboBox5 = "Московская область" Then
P = P + 1.7
ElseIf ComboBox5 = "Республика Адыгея" And ComboBox8 = "Майкоп" Then
P = P + 1
ElseIf ComboBox5 = "Республика Адыгея" And ComboBox8 = "др.города" Then
P = P + 0.85
ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B3:B13") Then
P = P + 1
ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B14") Then
P = P + 1.3
ElseIf ComboBox5 = "Республика Башкортостан" And ComboBox8 = Worksheets("БАЗА").Range("B15") Then
P = P + 0.75
ElseIf ComboBox5 = "Республика Бурятия" And ComboBox8 = Worksheets("БАЗА").Range("B16") Then
P = P + 1
ElseIf ComboBox5 = "Республика Бурятия" And ComboBox8 = Worksheets("БАЗА").Range("B17") Then
P = P + 0.65
ElseIf ComboBox5 = "Республика Алтай" And ComboBox8 = Worksheets("БАЗА").Range("B18") Then
P = P + 1
ElseIf ComboBox5 = "Республика Алтай" And ComboBox8 = Worksheets("БАЗА").Range("B19") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Дагестан" And ComboBox8 = Worksheets("БАЗА").Range("B20:B24") Then
P = P + 1
ElseIf ComboBox5 = "Республика Дагестан" And ComboBox8 = Worksheets("БАЗА").Range("B25") Then
P = P + 0.55
ElseIf ComboBox5 = "Республика Ингушетия" And ComboBox8 = Worksheets("БАЗА").Range("B26:B27") Then
P = P + 1
ElseIf ComboBox5 = "Республика Ингушетия" And ComboBox8 = Worksheets("БАЗА").Range("B28") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Кабардино-Балкарская" And ComboBox8 = Worksheets("БАЗА").Range("B29:B30") Then
P = P + 1
ElseIf ComboBox5 = "Республика Кабардино-Балкарская" And ComboBox8 = Worksheets("БАЗА").Range("B31") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Калмыкия" And ComboBox8 = Worksheets("БАЗА").Range("B32") Then
P = P + 1
ElseIf ComboBox5 = "Республика Калмыкия" And ComboBox8 = Worksheets("БАЗА").Range("B33") Then
P = P + 0.65
ElseIf ComboBox5 = "Республика Карачаево-Черкесская" And ComboBox8 = Worksheets("БАЗА").Range("B34") Then
P = P + 1
ElseIf ComboBox5 = "Республика Карачаево-Черкесская" And ComboBox8 = Worksheets("БАЗА").Range("B35") Then
P = P + 0.8
ElseIf ComboBox5 = "Республика Карелия" And ComboBox8 = Worksheets("БАЗА").Range("B36") Then
P = P + 1
ElseIf ComboBox5 = "Республика Карелия" And ComboBox8 = Worksheets("БАЗА").Range("B37") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B38:B41") Then
P = P + 1
ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B42") Then
P = P + 1.3
ElseIf ComboBox5 = "Республика Коми" And ComboBox8 = Worksheets("БАЗА").Range("B43") Then
P = P + 0.85
ElseIf ComboBox5 = "Республика Марий Эл" And ComboBox8 = Worksheets("БАЗА").Range("B44:B45") Then
P = P + 1
ElseIf ComboBox5 = "Республика Марий Эл" And ComboBox8 = Worksheets("БАЗА").Range("B46") Then
P = P + 0.75
ElseIf ComboBox5 = "Республика Мордовия" And ComboBox8 = Worksheets("БАЗА").Range("B47:B48") Then
P = P + 1
ElseIf ComboBox5 = "Республика Мордовия" And ComboBox8 = Worksheets("БАЗА").Range("B49") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B50") Then
P = P + 1
ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B51") Then
P = P + 1.6
ElseIf ComboBox5 = "Республика Саха(Якутия)" And ComboBox8 = Worksheets("БАЗА").Range("B52") Then
P = P + 0.8
ElseIf ComboBox5 = "Республика Северная Осетия(Алания)" And ComboBox8 = Worksheets("БАЗА").Range("B53") Then
P = P + 1
ElseIf ComboBox5 = "Республика Северная Осетия(Алания)" And ComboBox8 = Worksheets("БАЗА").Range("B54") Then
P = P + 0.6
ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B55:B61") Then
P = P + 1
ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B62") Then
P = P + 1.6
ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B63") Then
P = P + 1.3
ElseIf ComboBox5 = "Республика Татарстан" And ComboBox8 = Worksheets("БАЗА").Range("B64") Then
P = P + 0.8
ElseIf ComboBox5 = "Республика Тыва" And ComboBox8 = Worksheets("БАЗА").Range("B65") Then
P = P + 1
ElseIf ComboBox5 = "Республика Тыва" And ComboBox8 = Worksheets("БАЗА").Range("B65") Then
P = P + 0.6
ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B67:B69") Then
P = P + 1
ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B70") Then
P = P + 1.3
ElseIf ComboBox5 = "Республика Удмуртская" And ComboBox8 = Worksheets("БАЗА").Range("B71") Then
P = P + 0.7
ElseIf ComboBox5 = "Республика Хакасия" And ComboBox8 = Worksheets("БАЗА").Range("B72:B74") Then
P = P + 1
ElseIf ComboBox5 = "Республика Хакасия" And ComboBox8 = Worksheets("БАЗА").Range("B75") Then
P = P + 0.6
ElseIf ComboBox5 = "Республика Чувашская" And ComboBox8 = Worksheets("БАЗА").Range("B76:B77") Then
P = P + 1
ElseIf ComboBox5 = "Республика Чувашская" And ComboBox8 = Worksheets("БАЗА").Range("B78") Then
P = P + 1.3
ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B80:B83") Then
P = P + 1
ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B84") Then
P = P + 1.3
ElseIf ComboBox5 = "Алтайский край" And ComboBox8 = Worksheets("БАЗА").Range("B85") Then
P = P + 0.6
ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B86:B98") Then
P = P + 1
ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B99") Then
P = P + 1.6
ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B100") Then
P = P + 1.3
ElseIf ComboBox5 = "Краснодарский край" And ComboBox8 = Worksheets("БАЗА").Range("B101") Then
P = P + 0.7
ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B102:B109") Then
P = P + 1
ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B110") Then
P = P + 1.6
ElseIf ComboBox5 = "Красноярский край" And ComboBox8 = Worksheets("БАЗА").Range("B111") Then
P = P + 0.7
ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B112:B115") Then
P = P + 1
ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B116") Then
P = P + 1.3
ElseIf ComboBox5 = "Приморский край" And ComboBox8 = Worksheets("БАЗА").Range("B117") Then
P = P + 0.6
ElseIf ComboBox5 = "Ставропольский край" And ComboBox8 = Worksheets("БАЗА").Range("B118:B124") Then
P = P + 1
ElseIf ComboBox5 = "Ставропольский край" And ComboBox8 = Worksheets("БАЗА").Range("B125") Then
P = P + 0.65
ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B126") Then
P = P + 1
ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B127") Then
P = P + 1.6
ElseIf ComboBox5 = "Хабаровский край" And ComboBox8 = Worksheets("БАЗА").Range("B128") Then
P = P + 0.65
ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B129") Then
P = P + 1
ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B130") Then
P = P + 1.3
ElseIf ComboBox5 = "Амурская область" And ComboBox8 = Worksheets("БАЗА").Range("B131") Then
P = P + 0.6
ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B132:B133") Then
P = P + 1.3
ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B134") Then
P = P + 1
ElseIf ComboBox5 = "Архангельская область" And ComboBox8 = Worksheets("БАЗА").Range("B135") Then
P = P + 0.85
ElseIf ComboBox5 = "Астраханская область" And ComboBox8 = Worksheets("БАЗА").Range("B136") Then
P = P + 1.3
ElseIf ComboBox5 = "Астраханская область" And ComboBox8 = Worksheets("БАЗА").Range("B137") Then
P = P + 0.65
ElseIf ComboBox5 = "Белгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B138:B140") Then
P = P + 1
ElseIf ComboBox5 = "Белгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B141") Then
P = P + 0.65
ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B142") Then
P = P + 1.3
ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B143") Then
P = P + 1
ElseIf ComboBox5 = "Брянская область" And ComboBox8 = Worksheets("БАЗА").Range("B144") Then
P = P + 0.6
ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("БАЗА").Range("B145:B148") Then
P = P + 1
ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("БАЗА").Range("B149") Then
P = P + 1.3
ElseIf ComboBox5 = "Владимирская область" And ComboBox8 = Worksheets("KASKO").Range("B150") Then
P = P + 0.75
ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B151:B152") Then
P = P + 1.3
ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B153:B154") Then
P = P + 1
ElseIf ComboBox5 = "Волгоградская область" And ComboBox8 = Worksheets("БАЗА").Range("B155") Then
P = P + 0.6
ElseIf ComboBox5 = "Вологодская область" And ComboBox8 = Worksheets("БАЗА").Range("B156:B157") Then
P = P + 1.3
ElseIf ComboBox5 = "Вологодская область" And ComboBox8 = Worksheets("БАЗА").Range("B158") Then
P = P + 0.8
ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B159:B161") Then
P = P + 1
ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B162") Then
P = P + 1.3
ElseIf ComboBox5 = "Воронежская область" And ComboBox8 = Worksheets("БАЗА").Range("B163") Then
P = P + 0.55
ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B164:B165") Then
P = P + 1
ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B166") Then
P = P + 1.3
ElseIf ComboBox5 = "Ивановская область" And ComboBox8 = Worksheets("БАЗА").Range("B167") Then
P = P + 0.75
ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B168:B172") Then
P = P + 1
ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B173") Then
P = P + 1.3
ElseIf ComboBox5 = "Иркутская область" And ComboBox8 = Worksheets("БАЗА").Range("B174") Then
P = P + 0.65
ElseIf ComboBox5 = "Калининградская область" And ComboBox8 = Worksheets("БАЗА").Range("B175") Then
P = P + 1.3
ElseIf ComboBox5 = "Калининградская область" And ComboBox8 = Worksheets("БАЗА").Range("B176") Then
P = P + 0.6
ElseIf ComboBox5 = "Калужская область" And ComboBox8 = Worksheets("БАЗА").Range("B177:B178") Then
P = P + 1
ElseIf ComboBox5 = "Калужская область" And ComboBox8 = Worksheets("БАЗА").Range("B179") Then
P = P + 0.65
ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B180:B184") Then
P = P + 1
ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B185:B186") Then
P = P + 1.6
ElseIf ComboBox5 = "Кемеровская область" And ComboBox8 = Worksheets("БАЗА").Range("B187") Then
P = P + 0.8
ElseIf ComboBox5 = "Кировская область" And ComboBox8 = Worksheets("БАЗА").Range("B188") Then
P = P + 1.3
ElseIf ComboBox5 = "Кировская область" And ComboBox8 = Worksheets("БАЗА").Range("B189") Then
P = P + 0.7
ElseIf ComboBox5 = "Костромская область" And ComboBox8 = Worksheets("БАЗА").Range("B190") Then
P = P + 1
ElseIf ComboBox5 = "Костромская область" And ComboBox8 = Worksheets("БАЗА").Range("B191") Then
P = P + 0.8
ElseIf ComboBox5 = "Курганская область" And ComboBox8 = Worksheets("БАЗА").Range("B192") Then
P = P + 1
ElseIf ComboBox5 = "Курганская область" And ComboBox8 = Worksheets("БАЗА").Range("B193") Then
P = P + 0.7
ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B194") Then
P = P + 1.3
ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B195") Then
P = P + 1
ElseIf ComboBox5 = "Курская область" And ComboBox8 = Worksheets("БАЗА").Range("B196") Then
P = P + 0.55
ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B197") Then
P = P + 1
ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B198") Then
P = P + 1.3
ElseIf ComboBox5 = "Липецкая область" And ComboBox8 = Worksheets("БАЗА").Range("B199") Then
P = P + 0.6
ElseIf ComboBox5 = "Магаданская область" And ComboBox8 = Worksheets("БАЗА").Range("B200") Then
P = P + 1
ElseIf ComboBox5 = "Магаданская область" And ComboBox8 = Worksheets("БАЗА").Range("B201") Then
P = P + 0.75
ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B202:B204") Then
P = P + 1
ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B205") Then
P = P + 1.3
ElseIf ComboBox5 = "Мурманская область" And ComboBox8 = Worksheets("БАЗА").Range("B206") Then
P = P + 0.85
ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B207:B212") Then
P = P + 1
ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B213") Then
P = P + 1.6
ElseIf ComboBox5 = "Нижегородская область" And ComboBox8 = Worksheets("БАЗА").Range("B214") Then
P = P + 1.3
ElseIf ComboBox5 = "Новгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B215:B216") Then
P = P + 1
ElseIf ComboBox5 = "Новгородская область" And ComboBox8 = Worksheets("БАЗА").Range("B217") Then
P = P + 0.65
ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B218:B220") Then
P = P + 1
ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B221") Then
P = P + 1.3
ElseIf ComboBox5 = "Новосибирская область" And ComboBox8 = Worksheets("БАЗА").Range("B222") Then
P = P + 0.75
ElseIf ComboBox5 = "Омская область" And ComboBox8 = Worksheets("БАЗА").Range("B223") Then
P = P + 1.3
ElseIf ComboBox5 = "Омская область" And ComboBox8 = Worksheets("БАЗА").Range("B224") Then
P = P + 0.7
ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B225:B228") Then
P = P + 1
ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B229") Then
P = P + 1.3
ElseIf ComboBox5 = "Оренбургская область" And ComboBox8 = Worksheets("БАЗА").Range("B230") Then
P = P + 0.7
ElseIf ComboBox5 = "Орловская область" And ComboBox8 = Worksheets("БАЗА").Range("B231:B233") Then
P = P + 1
ElseIf ComboBox5 = "Орловская область" And ComboBox8 = Worksheets("БАЗА").Range("B234") Then
P = P + 0.6
ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B235:B236") Then
P = P + 1
ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B237") Then
P = P + 1.3
ElseIf ComboBox5 = "Пензенская область" And ComboBox8 = Worksheets("БАЗА").Range("B238") Then
P = P + 0.6
ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B239:B244") Then
P = P + 1
ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B245") Then
P = P + 1.6
ElseIf ComboBox5 = "Пермский край" And ComboBox8 = Worksheets("БАЗА").Range("B246") Then
P = P + 0.85
ElseIf ComboBox5 = "Псковская область" And ComboBox8 = Worksheets("БАЗА").Range("B247:B248") Then
P = P + 1
ElseIf ComboBox5 = "Псковская область" And ComboBox8 = Worksheets("БАЗА").Range("B249") Then
P = P + 0.55
ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B250:B257") Then
P = P + 1
ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B258") Then
P = P + 1.3
ElseIf ComboBox5 = "Ростовская область" And ComboBox8 = Worksheets("БАЗА").Range("B259") Then
P = P + 0.65
ElseIf ComboBox5 = "Рязанская область" And ComboBox8 = Worksheets("БАЗА").Range("B260") Then
P = P + 1.3
ElseIf ComboBox5 = "Рязанская область" And ComboBox8 = Worksheets("БАЗА").Range("B261") Then
P = P + 0.65
ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B262:B65") Then
P = P + 1
ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B266:B67") Then
P = P + 1.3
ElseIf ComboBox5 = "Самарская область" And ComboBox8 = Worksheets("БАЗА").Range("B268") Then
P = P + 0.74
ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B269:B72") Then
P = P + 1
ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B273") Then
P = P + 1.3
ElseIf ComboBox5 = "Саратовская область" And ComboBox8 = Worksheets("БАЗА").Range("B274") Then
P = P + 0.7
ElseIf ComboBox5 = "Сахалинская область" And ComboBox8 = Worksheets("БАЗА").Range("B275") Then
P = P + 1.3
ElseIf ComboBox5 = "Сахалинская область" And ComboBox8 = Worksheets("БАЗА").Range("B276") Then
P = P + 0.75
ElseIf ComboBox5 = "Свердловская область" And ComboBox8 = Worksheets("БАЗА").Range("B277:B82") Then
P = P + 1
ElseIf ComboBox5 = "Свердловская область" And ComboBox8 = Worksheets("БАЗА").Range("B283") Then
P = P + 0.75
ElseIf ComboBox5 = "Смоленская область" And ComboBox8 = Worksheets("БАЗА").Range("B284:B88") Then
P = P + 1
ElseIf ComboBox5 = "Смоленская область" And ComboBox8 = Worksheets("БАЗА").Range("B289") Then
P = P + 0.55
ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B290:B92") Then
P = P + 1
ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B293") Then
P = P + 1.3
ElseIf ComboBox5 = "Тверская область" And ComboBox8 = Worksheets("БАЗА").Range("B294") Then
P = P + 0.65
ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B295") Then
P = P + 1
ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B296") Then
P = P + 1.3
ElseIf ComboBox5 = "Томская область" And ComboBox8 = Worksheets("БАЗА").Range("B297") Then
P = P + 0.7
ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B298:B301") Then
P = P + 1
ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B302") Then
P = P + 1.3
ElseIf ComboBox5 = "Тульская область" And ComboBox8 = Worksheets("БАЗА").Range("B303") Then
P = P + 0.65
ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B304:B305") Then
P = P + 1
ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B306") Then
P = P + 1.3
ElseIf ComboBox5 = "Тюменская область" And ComboBox8 = Worksheets("БАЗА").Range("B307") Then
P = P + 0.8
ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B308") Then
P = P + 1
ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B309") Then
P = P + 1.3
ElseIf ComboBox5 = "Ульяновская область" And ComboBox8 = Worksheets("БАЗА").Range("B3010") Then
P = P + 0.7
ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B311:B316") Then
P = P + 1
ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B317") Then
P = P + 1.3
ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B318") Then
P = P + 1.6
ElseIf ComboBox5 = "Челябинская область" And ComboBox8 = Worksheets("БАЗА").Range("B319") Then
P = P + 0.8
ElseIf ComboBox5 = "Забайкальский край" And ComboBox8 = Worksheets("БАЗА").Range("B320") Then
P = P + 1
ElseIf ComboBox5 = "Забайкальский край" And ComboBox8 = Worksheets("БАЗА").Range("B321") Then
P = P + 0.55
ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B322") Then
P = P + 1.3
ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B323") Then
P = P + 1
ElseIf ComboBox5 = "Ярославская область" And ComboBox8 = Worksheets("БАЗА").Range("B324") Then
P = P + 0.7
ElseIf ComboBox5 = "Еврейская автономная область" And ComboBox8 = Worksheets("БАЗА").Range("B325") Then
P = P + 1
ElseIf ComboBox5 = "Еврейская автономная область" And ComboBox8 = Worksheets("БАЗА").Range("B326") Then
P = P + 0.55
ElseIf ComboBox5 = "Камчатский край" And ComboBox8 = Worksheets("БАЗА").Range("B327") Then
P = P + 1
ElseIf ComboBox5 = "Камчатский край" And ComboBox8 = Worksheets("БАЗА").Range("B328") Then
P = P + 0.65
ElseIf ComboBox5 = "Чукотский автономный округ" Then
P = P + 0.55
ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B329") Then
P = P + 1
ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B330") Then
P = P + 1.3
ElseIf ComboBox5 = "Ямало-Ненецкий АО" And ComboBox8 = Worksheets("БАЗА").Range("B331") Then
P = P + 0.65
Else: P = P + 0.55
End If
If Worksheets("KASKO").Cells(2, 2) = "Угон" Then
P = 5
ElseIf Worksheets("KASKO").Cells(2, 2) = "Угон+ущерб" Then
P = 6
ElseIf Worksheets("KASKO").Cells(2, 2) = "Ущерб" Then
P = 4
End If
If Worksheets("KASKO").Cells(3, 2) = "Собственные средства" Then
P = P
ElseIf Worksheets("KASKO").Cells(3, 2) = "Кредит" Then
P = P + 0.2
End If
Worksheets("KASKO").Cells(11, 2) = ComboBox.Value
V = Worksheets("KASKO").Cells(4, 2)
If V > 6 Then 'блок "возраст ТС"
P = P + 2
Else: P = P
End If
V2 = Worksheets("KASKO").Cells(5, 2)
If V2 < 21 Or V2 > 60 Then 'блок "Стаж водителя"
P = P + 1
Else: P = P
End If
Ct = Worksheets("KASKO").Cells(6, 2)
If Ct < 5 Then
P = P + 1.1 'блок "водительский стаж
ElseIf Ct > 10 Then
P = P
Else: P = P + 0.1
End If
If ScrollBar1.Value < 50 Then
P = P + 0.6 'блок "Мощность ТС"
ElseIf ScrollBar1.Value > 150 Then
P = P + 1.6
Else: P = P + 0.9
End If
If OptionButton1 = True Then '"блок наличие аварий"
P = P + 0.2
Else: P = P
End If
Sum = St / 100 * P
Worksheets("KASKO").Cells(13, 2) = P
Worksheets("KASKO").Cells(14, 2) = Sum
End Sub
ПРИЛОЖЕНИЕ 2
Инструкция работы программы для пользователя
1. 
Выбор вида страхования. В данном пункте 3 варианта: угон, угон+ущерб, ущерб. Процентная ставка наибольшая при страховании на угони ущерб одновременно, наименьшая при страховании только на ущерб. Просто нажав на выбранную кнопку, пользователь увидит свой выбор в базе Excel, процентная ставка определится в программе.
2. Информация о кредите. 2 варианта: на собственные средства и покупка с использованием кредита. Процентная ставка будет выше при выборе варианта «кредит» на 0,2%.
3. Возраст ТС. При нажатии на эту кнопку пользователь должен ввести число в появившееся окно InputBox. Пограничным числом процентной ставки в этом пункте является 6. Если возраст ТС больше 6 лет, то процентная ставка увеличится на 2%.
4. 
Возраст страховщика. После нажатия пользователем этой кнопки снова появляется окно InputBox. Процентная ставка зависит от возраста страховщика следующим образом: процент больше для страховщиков младше 21 года и старше 60 лет.
5. Водительский стаж. Пункт заполняется аналогично предыдущим двум. Процент ставки наименьший при стаже больше 10 лет, наибольший при стаже меньше 5 лет.
6. 
Мощность ТС. Выбирается пользователем при помощи ScrollBar, установленном на значения от 0 о 1500 лошадиных сил. Чем больше лс автомобиля, тем больше процентная ставка. От 150 лс прибавка к процентной ставке составляет 1,6%.
7. Регион регистрации. Выбирается пользователем при помощи двух связанных выпадающих списков ComboBox. В первом выбирается регион, во втором город. Процентная ставка индивидуальная при любом выборе, основана на таблице региональных коэффициентов.
8. Наличие аварий. Пункт организован при помощи Frame. Пользователь может выбрать только один вариант: да или нет. Соответственно, процентная ставка выше, если аварии были.
9. Количество водителей. Три варианта блока: 1 лицо, 2 и неограниченна страховка. Процентная ставка увеличивается на 1% при добавлении 1 водителя и на 1,8 при неограниченном количестве.
10. Срок действия полиса. Организован выпадающим списком ComboBox, двумя вариантами: «от 3х месяцев до 9» и «больше 10 месяцев». При страховке на меньший промежуток времени процентная ставка уменьшается, при большем сроке увеличивается на 1%.
11. Страховая сумма. Пользователь вводит стоимость ТС в InputBox. От данного числа будет высчитываться процент при определении стоимости страхового полиса.
12. Подсчет. При нажатии последней кнопки программа подсчитывает общий процент страхования и стоимость страхового полиса, выводит данные в базу на лист Excel.
|
|
|
