Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 72 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

72
Продолжение табл. 11
1 2 3 4 5
Метка 4 Label4 По умолчанию Caption – Из
Метка 5 Label5 По умолчанию Caption – В
Метка 6 Label6 По умолчанию
Caption –
Переводимая
сумма
Метка 7 Label7 ВалютаИз
Метка 8 Label8 ВалютаВ
Метка 9 Label9 СуммаИз
Метка 10 Label10 СуммаВ
Поле со
списком
ListBox1 Из
Поле со
списком
ListBox2 В
4. Записать программный код для объекта управления КнопкаОчистить,
поместив в событие Click() следующие операторы:
Private Sub КнопкаОчистить_Click()
Курс.Text = " "
Сумма.Text = " "
ВалютаИз.Caption = " "
ВалютаВ.Caption = " "
СуммаИз.Caption = " "
СуммаВ.Caption = " "
ПолеИз.Caption = " "
ПолеВ.Caption = " "
End Sub
5. Записать программный код для объекта управления КнопкаВыход,
поместив в событие Click() следующие операторы:
Private Sub КнопкаВыход_Click()
End
End Sub
6. Записать программный код для объекта управления КнопкаПечатать,
поместив в событие Click() следующие операторы:
Private Sub КнопкаПосчитать_Click()
ВалютаИз.Caption = Из.List(Из.ListIndex)
ВалютаВ.Caption = В.List(В.ListIndex)
СуммаИз.Caption = Сумма.Text
ПолеИз.Caption = "Из"
ПолеВ.Caption = "В"
If IsNumeric(Сумма.Text) = False Then
MsgBox "Введите правильно перводимую сумму"
Сумма.SetFocus
Exit Sub 
                                72
                                               Продолжение табл. 11
      1               2          3             4           5
  Метка 4    Label4       По умолчанию   Caption – Из
  Метка 5    Label5       По умолчанию   Caption – В
                                         Caption –
  Метка 6    Label6       По умолчанию   Переводимая
                                         сумма
  Метка 7    Label7       ВалютаИз
  Метка 8    Label8       ВалютаВ
  Метка 9    Label9       СуммаИз
  Метка 10   Label10      СуммаВ
  Поле со
             ListBox1     Из
  списком
  Поле со
             ListBox2     В
  списком

4. Записать программный код для объекта управления КнопкаОчистить,
   поместив в событие Click() следующие операторы:
          Private Sub КнопкаОчистить_Click()
          Курс.Text = " "
          Сумма.Text = " "
          ВалютаИз.Caption = " "
          ВалютаВ.Caption = " "
          СуммаИз.Caption = " "
          СуммаВ.Caption = " "
          ПолеИз.Caption = " "
          ПолеВ.Caption = " "
          End Sub
5. Записать программный код для объекта управления КнопкаВыход,
   поместив в событие Click() следующие операторы:
           Private Sub КнопкаВыход_Click()
           End
           End Sub
6. Записать программный код для объекта управления КнопкаПечатать,
   поместив в событие Click() следующие операторы:
      Private Sub КнопкаПосчитать_Click()
      ВалютаИз.Caption = Из.List(Из.ListIndex)
      ВалютаВ.Caption = В.List(В.ListIndex)
      СуммаИз.Caption = Сумма.Text
      ПолеИз.Caption = "Из"
      ПолеВ.Caption = "В"
        If IsNumeric(Сумма.Text) = False Then
           MsgBox "Введите правильно перводимую сумму"
           Сумма.SetFocus
        Exit Sub

Страницы