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

UptoLike

Составители: 

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 = “Порядок выплат
   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