ComboD.Clear

Date: 2015-10-07; view: 479.

Private Sub Form_Load()

End Sub

End

Private Sub CmdExit_Click()

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

Private Sub CmdCalc_Click()

Dim Tip As String

Dim t As Integer, m As Integer

Dim P, i, S As Double

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

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))

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

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

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

ComboD.AddItem ("год")

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

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

ComboD.AddItem ("день")

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