2. Разработка алгоритма программы
Алгоритм — набор инструкций, описывающих порядок действий исполнителя для достижения результата решения задачи за конечное число действий.
Рис.1 «Общая блок-схема алгоритма работы программы»
3. Вариант использования программы
«Угон»: Р = 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
4. Заключение
В данном курсовом проекте был составлен калькулятор расчета КАСКО страхования с учетом современных ГОСТов и норм автомобильного страхования. Приложение было выполнено в приложении Microsoft Exel с помощью Visual Basic.
Задачи и цели курсового проекта были выполнены. Калькулятор готов к использованию.
Список литературы
П. Эйткен, Интенсивный курс программирования в Excel за выходные. – М.: Диалектика, 2004. –240 с.
В. Г. Кузьменко, Программирование на VBA 2002 – М: Бином-Пресс, 2002. – 760 с.
Уокенбах Дж, Подробное руководство по созданию формул в Excel. – М: Издательский дом «Вильямс», 2002. –624 с.
Методические рекомендации
Интернет-ресурсы:
http://kaskometr.ru/straxovie/company/ - онлайн-калькуляторы страховых компаний.
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