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

   ToggleButton1.Caption = “В начале периода”
   Label7.Caption = “”
   Label8.Caption = “”
   Label9.Caption = “”
   Label11.Caption = “”
End Sub

    Для активных элементов формы записывается соответствующий код.
    В модуле формы введите программный код процедур по обработке
событий формы и элементов управления, расположенных на форме.

Private Sub CommandButton1_Click()
   Dim Ставка As Double
   Dim Кпер As Byte
   Dim Тип As Double
   Dim Нз As Double
   Нз = TextBox2.Value - TextBox2.Value * _
            TextBox3.Value / 100
   Label9.Caption = Нз
   Ставка = ListBox1.Value
   Ставка = Ставка / 100
   If OptionButton1.Value = True Then Ставка = _
            Ставка / 12
   Кпер = TextBox1.Value
   If ToggleButton1.Value = True Then Тип = 1 _
            Else Тип = 0
   Label7.Caption = Int(Pmt(Ставка, Кпер, -Нз, _
            , Тип))
   Label8.Caption = Label7.Caption * Кпер
   Label11.Caption = Label8.Caption – _
            Label9.Caption
   ActiveSheet.Range("A1:B10").Clear
   ActiveSheet.Columns("A").Select
   With Selection
      .ColumnWidth = 40
      .WrapText = True
   End With
   ActiveSheet.Range(“B1”).Select
   With ActiveSheet
      .Range(“A1”).Value = “Стоимость имущества”
      .Range(“A2”).Value = “Начальный взнос, %”
      .Range(“A3”).Value = “Периодов”
      .Range(“A4”).Value = “Ставка”
      .Range(“A5”).Value = “Порядок выплат”
                           52