ВУЗ:
Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 50
- 51
- 52
- 53
- 54
- …
- следующая ›
- последняя »