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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

48
ция по выплатам
Продолжение табл . 13
1 2 3 4 5
Переклю-
чатель1
Option1 Option1 Caption – Месяц
Click() – свойство
Caption объекта
Label13 изменяется
на “в годах”
Переклю-
чатель2
Option2 Option2 Caption – Год
Click() – свойство
Caption объекта
Label13 изменяется
на “в месяцах”
Флажок1 Check1 Check1 Caption – В начале
Click() – свойство
Value объекта
Check2 меняется на
0
Флажок Check2 Check2 Caption – В конце
Click() – свойство
Value объекта
Check1 меняется на
0
Счетчик1 VScroll1 VScroll1
Max-1000
Min-1
LargeChange-50
Change() – свойству
Text объекта Text1
присваивается зна-
чение свойства
Value объекта
Vscroll1
Список2 ListBox2 List2 Нет
5. В общей области модуля формы (General) ввести код , описывающий
типы переменных:
Option Explicit
Dim Кпер , Нз, Ставка As Double
Dim i As Integer
Dim Тип As Byte
6. Записать программный код для объектов Check1, Check2 (флажок),
поместив в событие Click() следующие операторы :
Private Sub Check1_Click()
If Check1.Value = 1 Then Check2.Value = 0
If Check1.Value = 0 Then Check2.Value = 1
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then Check1.Value = 0
If Check2.Value = 0 Then Check1.Value = 1
End Sub
7. Записать программный код для объекта кнопка Clear (Очистить ),
поместив в событие Click() следующие операторы :
Private Sub Clear_Click()
Text2.Text = 0 : Text3.Text = 0 : Text1.Text = 1 
                                        48
                                         ция по выпл а т а м


                                                                  П род ол ж ен ие т а бл . 13
      1            2             3                  4                            5
                                                                    Click() – свойст во
П ерекл ю-                                                          Caption         объекта
                Option1       Option1    Caption – М есяц
ча т ел ь 1                                                         Label13 изм ен яет ся
                                                                    н а “в год а х”
                                                                    Click() – свойст во
П ерекл ю-                                                          Caption         объекта
                Option2       Option2        Caption – Г од
ча т ел ь 2                                                         Label13 изм ен яет ся
                                                                    н а “в м есяца х”
                                                                    Click() – свойст во
                                                                    Value           объекта
Ф л а ж ок1     Check1        Check1     Caption – В н а ча л е
                                                                    Check2 м ен яет ся н а
                                                                    0
                                                                    Click() – свойст во
                                                                    Value           объекта
Ф л а ж ок      Check2        Check2     Caption – В кон це
                                                                    Check1 м ен яет ся н а
                                                                    0
                                                                    Change() – свойст ву
                                                                    Text объекта Text1
                                         Max-1000
                                                                    присва ива ет ся зн а -
С чет чик1      VScroll1    VScroll1     Min-1
                                                                    чен ие         свойст ва
                                         LargeChange-50
                                                                    Value объект а
                                                                    Vscroll1
С писок2       ListBox2        List2              Н ет

   5. В общей обл а ст и м од у л я ф орм ы (General) ввести код , описыва ющий
      т ипы перем ен н ых:
           Option Explicit
           Dim К пер, Н з, С тавкаAs Double
           Dim i As Integer
           Dim Т ип As Byte
   6. Записа т ь програ м м н ый код д л я объектов Check1, Check2 (ф лажок),
      пом ест ив в событие Click() сл ед у ющие опера т оры:
           Private Sub Check1_Click()
           If Check1.Value = 1 Then Check2.Value = 0
           If Check1.Value = 0 Then Check2.Value = 1
           End Sub
           Private Sub Check2_Click()
           If Check2.Value = 1 Then Check1.Value = 0
           If Check2.Value = 0 Then Check1.Value = 1
           End Sub
   7. Записа т ь програ м м н ый код д л я объект а кн опка Clear (О ч ис тить ),
      пом ест ив в событие Click() сл ед у ющие опера т оры:
           Private Sub Clear_Click()
           Text2.Text = 0 : Text3.Text = 0 : Text1.Text = 1

Страницы