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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

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

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

       Private Sub К нопкаВ ы х од_Click()
       End
       End Sub

7. Записа т ь програ м м н ый код д л я объекта у пра вл ен ия К нопкаП еч а-
   тать , пом ест ив в событие Click() сл ед у ющие опера торы:

 Private Sub К нопкаП ос ч итать _Click()
 В алю таИ з.Caption = И з.List(И з.ListIndex)
 В алю таВ .Caption = В .List(В .ListIndex)
 С у м м аИ з.Caption = С у м м а.Text
 П олеИ з.Caption = "И з"
 П олеВ .Caption = "В "
    If IsNumeric(С у м м а.Text) = False Then
       MsgBox "В ведитеправиль но перводим у ю с у м м у "
       С у м м а.SetFocus
    Exit Sub
    End If
    If IsNumeric(К у рс .Text) = False Then
       MsgBox "В ведитеправиль но ку рс "
       К у рс .SetFocus
    Exit Sub
    End If
    If InStr(И з.Text, "Ру блей ") And InStr(В .Text, "Д оллары ") Then
       С у м м аВ .Caption = CDbl(С у м м а.Text) / CDbl(К у рс .Text)
    End If
    If InStr(И з.Text, "Ру блей ") And InStr(В .Text, "Е вро") Then

Страницы