Visual Basic. Практика. Ищенко В.А - 50 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

50
Label11.Caption = (CDbl(Text1.Text)) * (CDbl((List2.Text)) * 0.01 /
12) * (CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
End If
If Option2.Value = True Then
Label7.Caption = Int((Pmt(Ставка, Кпер * 12, Нз, , Тип))) * (-1)
Label8.Caption = (CDbl((Text1.Text))) * (CDbl((List2.Text)) * 0.01) *
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100) +
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
Label11.Caption = (CDbl(Text1.Text)) * (CDbl((List2.Text)) * 0.01) *
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
End If
End Sub
12. Записать программный код для объекта VScroll1 (Счетчик), помес-
тив в событие Click() следующие операторы :
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub
13. Самостоятельно записать программный код для объекта кнопка
Zavershit (Завершить), поместив в событие Click() нужные операто-
ры .
14. Запустить программу на выполнение, просмотреть результат работы
и, если необходимо, исправить ошибки.
15. Вид формы и результат работы программы проекта приведен ниже.
16. Сохранить в своей папке форму и проект соответственно под имена-
ми ИпотечныйКредит.frm и ИпотечныйКредит.Vbp. 
                                          50
       Label11.Caption = (CDbl(Text1.Text)) * (CDbl((List2.Text)) * 0.01 /
12) * (CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
       End If
       If Option2.Value = True Then
       Label7.Caption = Int((Pmt(С тавка, К пер * 12, Н з, , Т ип))) * (-1)
       Label8.Caption = (CDbl((Text1.Text))) * (CDbl((List2.Text)) * 0.01) *
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100) +
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
       Label11.Caption = (CDbl(Text1.Text)) * (CDbl((List2.Text)) * 0.01) *
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)
       End If
       End Sub
   12. Записа т ь програ м м н ый код д л я объект а VScroll1 (С четчик), пом ес-
       т ив в событие Click() сл ед у ющие опера торы:

      Private Sub VScroll1_Change()
      Text1.Text = VScroll1.Value
      End Sub
   13. С а м остоятел ь н о за писа т ь програ м м н ый код д л я объект а кн опка
       Zavershit (Завершит ь ), пом ест ив в событ ие Click() н у ж н ые опера то-
       ры.
   14. Запу ст ит ь програ м м у н а выпол н ен ие, просм отрет ь резу л ь т а т ра боты
       и, есл и н еобход им о, испра вит ь ошибки.
   15. Вид ф орм ы и резу л ь т а т ра боты програ м м ы проект а привед ен н иж е.




   16. С охра н ит ь в своей па пке ф орм у и проект соот вет ст вен н о под им ен а -
       м и И потеч ны й К редит.frm и И потеч ны й К редит.Vbp.

Страницы