ComboD.Clear

End Sub

End

End Sub

End Select

Exit Sub

ComboD.SetFocus

Case Else

End If

Else

End If

Exit Sub

Beep

If Not IsNumeric(Textt.Text) Then

End If

Exit Sub

Beep

If Not IsNumeric(Texti.Text) Then

End If

Exit Sub

Beep

Dim Tip As String

Dim t As Integer, m As Integer

Dim P, i, S As Double

Программная реализация задачи

Для реализации описанных выше функций необходимо в форму поместить элементы управления, представленные в таблице 5.3.

Таблица 5.3.

Элементы управления программы «Кредит» и значения их свойств

Элемент	Свойство	Значение
Форма	Caption	Расчет накопленной суммы
Метка для суммы кредита	Name	LabelP
Caption	Сумма кредита
Метка для годовой % ставки	Name	Labeli
Caption	Годовая % ставка
Метка для накопленной суммы	Name	LabelS
Caption	Накопленная сумма
Текстовое поле для переменой P	Name	TextP
Text
Enabled	True
Текстовое поле для переменной i	Name	Texti
Text
Enabled	True
Текстовое поле для переменной S	Name	TextS
Text
Enabled	False
Кнопка для вычисления	Name	CmdCalc
Caption	Вычислить
Кнопка для выхода	Name	CmdExit
Caption	Выход
Рамка	Caption	Параметры периода кредита
Метка для срока	Name	Labelt
Caption	Срок
Текстовое поле для переменной t	Name	Textt
Text
Enabled	True
Метка для типа измерений	Name	LabelTip
Caption	Тип измерения
Комбинированный список для типа измерений	Name	ComboD
Text
Флажок	Name	ChD
Caption	дней в году (да – 360, нет – 365)
Enabled	False

Полный текст программного кода приведен на рис.5.8.

Для проверки правильности работы программы на рис 5.7 представлены результаты расчетов, проведенных на контрольных данных.

‘ Описание переменных:

‘ Обработчик события кнопки «Вычислить»:

Private Sub CmdCalc_Click()

If Not IsNumeric(TextP.Text) Then

MsgBox "В поле Cумма кредита не число!", vbOKOnly, "Error"

P = Val(TextP.Text)

MsgBox "В поле Годовая % ставка не число!", vbOKOnly, "Error"

i = Val(Texti.Text)

MsgBox "В поле Срок не число!", vbOKOnly, "Error"

t = Val(Textt.Text)

Tip = ComboD.Text ‘ Выбор выделенного элемента списка

Select case Tip ' Выбор типа задания срока кредита

Case "год"

m=1

Case "квартал"

m=4

Case "месяц"

m=12

Case "день"

If ChD.Value=1 Then ‘ Проверка включения флажка

m=360

m=365

MsgBox "Не задан тип измерения"

S = FSumm(P, i, t, m)

TextS.Text=CStr(Round(S,2))

‘ Обработчик события кнопки «Выход»:

Private Sub CmdExit_Click()

' Обработчик события инициализации формы:

Private Sub Form_Load()

' Заполнение элементов списка

ComboD.AddItem ("год")

ComboD.AddItem ("квартал")

ComboD.AddItem ("месяц")

ComboD.AddItem ("день")

ChD.Enabled = False ' Недоступность флажка для включения

Дата добавления: 2014-12-23