Visual Basic for Applications. Практика. Нагина Е.К - 46 стр.

     Dim   intВремяАмортизации As Integer
     Dim   intПериодРасчета As Integer
     Dim   intКратность As Integer
     Dim   blnПризнак As Boolean
     Dim   dblВеличинаАмортизации As Double
     Dim   k As Integer

   Код обработки события формы Initialize:

Private Sub UserForm_Initialize()
     TextBox1.Text = ""
     TextBox2.Text = ""
     TextBox3.Text = ""
     TextBox4.Text = ""
     TextBox5.Text = ""
     TextBox6.Text = ""
     OptionButton1.Value = True
End Sub

     Для активных элементов формы записывается соответствующий код.
     Код процедуры обработки события Click кнопки «Вычислить» (в
программе CommandButton1):

Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Or TextBox2.Text = _
        "" Or TextBox3.Text = "" Or TextBox4.Text _
         = "" Then
         MsgBox "Нет данных для расчета", _
                 vbExclamation, "Амортизация"
         Exit Sub
    End If
    dblПервичнаяСтоимость = CDbl(TextBox1.Text)
    dblОстаточнаяСтоимость = CDbl(TextBox2.Text)
    intВремяАмортизации = CInt(TextBox3.Text)
    intПериодРасчета = CInt(TextBox4.Text)
    If dblПервичнаяСтоимость < _
        dblОстаточнаяСтоимость Then
         MsgBox "Ошибка! Остаток больше начальной _
         амортизации", vbExclamation, "Амортизация"
         TextBox1.SetFocus
         Exit Sub
    End If
    If intВремяАмортизации < intПериодРасчета Then
         MsgBox "Ошибка в сроке амортизации", _
                           46