Задание № 2 « Пересчет валют»
Цели: Данная программа позволяет осуществлять перевод валют из одной денежной единицы в другую.
Рабочий лист:
Программный код:
Private Sub UserForm_Initialize()
ComboBox1.List = Array("Рубли", "Доллары", "Евро", "Марки")
ComboBox2.List = Array("Рубли", "Доллары", "Евро", "Марки")
End Sub
Private Sub КнопкаОтмена_Click()
End
End Sub
Private Sub КнопкаОчистить_Click()
Сумма.Text = ""
Курс.Text = ""
Label6.Caption = ""
End Sub
Private Sub КнопкаПересчитать_Click()
Dim X As Double
If IsNumeric(Сумма.Text) = False Then
MsgBox "Некорректно введена сумма"
Сумма.SetFocus
End If
If IsNumeric(Курс.Text) = False Then
MsgBox "Введите правильно курс"
Курс.SetFocus
End If
X = CDbl(Сумма.Text) * CDbl(Курс.Text)
Label6.Caption = Format(X, "Standard")
ActiveSheet.Range("A1:F9").Clear
With ActiveSheet
.Range("A1").Value = "Из " & ComboBox1.Text
.Range("B1").Value = "В " & ComboBox2.Text
.Range("C1").Value = "Курс"
.Range("C2").Value = Курс.Text
.Range("D1").Value = "Сумма"
.Range("D2").Value = Сумма.Text
.Range("E1").Value = "Результат"
.Range("E2").Value = Label6.Caption
End With
End Sub
Форма:
Вывод: Эта программа позволяет быстро и точно осуществлять перевод валют из одной денежной единицы в другую.
Задание № 3 « Страхование»
Цели: Необходимо создать программу для создания базы данных по учету страхователей и вида страхования с диалоговым окном.
Рабочий лист:
1)
2)
Программный код:
Dim Пол As String * 3
Dim НомерСтроки As Integer
Private Sub ЗаголовокРабочегоЛиста()
If Range("A1").Value = "Фамилия" Then
Range("A2").Select
Exit Sub
End If
ActiveSheet.Cells.Clear
Range("A1:I1").Value = Array("Фамилия", "Имя", "Пол", "Город", "Улица", "Дом", "Квартира", "Вид страхования", "Срок")
Range("2:2").Select
ActiveWindow.FreezePanes = True
Range("A2").Select
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="Фамилия клиента"
Range("B1").AddComment
Range("B1").Comment.Visible = False
Range("B1").Comment.Text Text:="Имя клиента"
Range("C1").AddComment
Range("C1").Comment.Visible = False
Range("C1").Comment.Text Text:="Пол клиента"
Range("D1").AddComment
Range("D1").Comment.Visible = False
Range("D1").Comment.Text Text:="Адрес клиента"
End Sub
Private Sub SpinButton1_Change()
With UserForm1
.ПолеСрок.Text = CStr(.SpinButton1.Value)
End With
End Sub
Private Sub ПолеСрок_Change()
With UserForm1
.SpinButton1.Value = CInt(.ПолеСрок.Text)
End With
End Sub
Private Sub UserForm_Initialize()
Worksheets("База данных").Activate
ЗаголовокРабочегоЛиста
Application.Caption = "Регистрация База данных страхования"
Application.DisplayFormulaBar = False
With КнопкаОК
.Default = True
.ControlTipText = "Ввод данных в базу данных"
End With
With КнопкаОтмена
.Cancel = True
.ControlTipText = "Кнопка отмены"
End With
Список.List = Array("Жизни", "Убытков", "Имущества")
ПолМуж.Value = True
End Sub
Private Sub КнопкаОК_Click()
НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1
If UserForm1.ПолМуж.Value = True Then
Пол = "Муж"
Else
Пол = "Жен"
End If
With ActiveSheet
.Cells(НомерСтроки, 1).Value = ПолеФамилия
.Cells(НомерСтроки, 2).Value = ПолеИмя
.Cells(НомерСтроки, 3).Value = Пол
.Cells(НомерСтроки, 4).Value = ПолеГород
.Cells(НомерСтроки, 5).Value = ПолеУлица
.Cells(НомерСтроки, 6).Value = ПолеДом
.Cells(НомерСтроки, 7).Value = ПолеКвартира
.Cells(НомерСтроки, 8).Value = Список.Value
.Cells(НомерСтроки, 9).Value = ПолеСрок
End With
End Sub
Private Sub КнопкаОтмена_Click()
Application.Caption = Empty
End
End Sub
Форма:
