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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

49
List2.ListIndex = -1
Option1.Value = True
Check1.Value = 1
Check2.Value = 0
Label7.Caption = 0
Label8.Caption = 0
Label9.Caption = 0
Label11.Caption = 0
End Sub
8. Записать программный код для объекта Form (Форма), поместив в
событие Click() следующие операторы :
Private Sub Form_Load()
For i = 3 To 30
List2.AddItem i
Next i
Check1.Value = 1
End Sub
9. Записать программный код для объекта Option1 (Переключатель
1), поместив в событие Click() следующие операторы :
Private Sub Option1_Click()
Label13.Caption = "в месяцах "
End Sub
10. Записать программный код для объекта Option2 (Переключатель
2), поместив в событие Click() следующие операторы :
Private Sub Option2_Click()
Label13.Caption = "в годах "
End Sub
11. Записать программный код для объекта кнопка Proschet (Вычис-
лить ), поместив в событие Click() следующие операторы :
Private Sub Proschet_Click()
Нз = CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100
Label9.Caption = Нз
Кпер = CDbl(Text1.Text)
Ставка = CDbl(List2.Text) \ 100
If Check1.Value = 1 Then Тип = 1
If Check2.Value = 1 Then Тип = 0
If option1.Value = True Then
Label7.Caption = Int((Pmt(Ставка, Кпер , Нз, , Тип))) * (-1)
Label8.Caption = (CDbl((Text1.Text))) * (CDbl((List2.Text)) * 0.01 /
12) * (CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100) +
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100) 
                                      49
         List2.ListIndex = -1
         Option1.Value = True
         Check1.Value = 1
         Check2.Value = 0
         Label7.Caption = 0
         Label8.Caption = 0
         Label9.Caption = 0
         Label11.Caption = 0
         End Sub
  8. Записа т ь програ м м н ый код д л я объект а Form (Ф орм а), пом естив в
     событие Click() сл ед у ющие опера т оры:

          Private Sub Form_Load()
          For i = 3 To 30
          List2.AddItem i
          Next i
          Check1.Value = 1
          End Sub
  9. Записа т ь програ м м н ый код д л я объект а Option1 (П ереклю ч атель
     1), пом естив в событие Click() сл ед у ющие опера торы:

           Private Sub Option1_Click()
           Label13.Caption = "в м ес яцах "
           End Sub
  10. Записа т ь програ м м н ый код д л я объект а Option2 (П ереклю ч атель
      2), пом естив в событие Click() сл ед у ющие опера торы:

          Private Sub Option2_Click()
          Label13.Caption = "в годах "
          End Sub
  11. Записа т ь програ м м н ый код д л я объект а кн опка Proschet (В ы ч ис -
      лить ), пом ест ив в событ ие Click() сл ед у ющие опера т оры:

     Private Sub Proschet_Click()
     Н з= CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100
     Label9.Caption = Н з
     К пер= CDbl(Text1.Text)
     С тавка= CDbl(List2.Text) \ 100
     If Check1.Value = 1 Then Т ип = 1
     If Check2.Value = 1 Then Т ип = 0
     If option1.Value = True Then
     Label7.Caption = Int((Pmt(С тавка, К пер, Н з, , Т ип))) * (-1)
     Label8.Caption = (CDbl((Text1.Text))) * (CDbl((List2.Text)) * 0.01 /
12) * (CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100) +
(CDbl(Text2.Text) - CDbl(Text2.Text) * CDbl(Text3.Text) / 100)

Страницы