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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

62
11. Записать программный код для объекта КнопкаОчистить , поместив
в событие Click() следующие операторы :
Private Sub КнопкаОчистить _Click()
List1.Clear
End Sub
12. Записать программный код для процедур, одна из которых описыва -
ет событие Change() для объекта управления Text1, а вторая – про -
веряет корректность вводимых числовых данных в текстовое поле:
Private Sub Text1_Change()
M = CInt(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
sTemplate =
"qwertyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:
ZXCVBNM<>?-
=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмитьбюЙЦУ
КЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
13. Записать программный код для процедуры , описывающей событие
Change() для объекта управления Text2, и осуществляющей провер-
ку корректности вводимых числовых данных в текстовое поле:
Private Sub Text2_Change()
N = CInt(Text2.Text)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
sTemplate =
"qwertyuiop[]asdfghjkl;',.zxcvbnm,/QWERTYUIOP{}ASDFGHJKL
:ZXCVBNM<>?-
=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмитьбюЙЦУ
КЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
14. Проверить корректность работы приложения и, при необходимости ,
исправить ошибки. 
                                       62
11. Записа т ь програ м м н ый код д л я объект а К нопкаО ч ис тить , пом ест ив
    в событ ие Click() сл ед у ющие опера торы:

   Private Sub К нопкаО ч ис тить _Click()
   List1.Clear
   End Sub

12. Записа т ь програ м м н ый код д л я процед у р, од н а из кот орых описыва -
    ет событие Change() д л я объект а у пра вл ен ия Text1, а вт ора я – про-
    веряет коррект н ост ь ввод им ыхчисл овыхд а н н ых в текст овое пол е:

   Private Sub Text1_Change()
   M = CInt(Text1.Text)
   End Sub

   Private Sub Text1_KeyPress(KeyAscii As Integer)
   sTemplate =
   "qwertyuiop[]asdfghjkl;'zxcvbnm,/QWERTYUIOP{}ASDFGHJKL:
   ZXCVBNM<>?-
   =\_+|`~!@#$%^&*()й цу кенгш щзх ъф ы вапролджэяч с м ить бю Й Ц У
   К Е Н Г Ш Щ ЗХ Ъ Ф Ы В АП Р О Л Д Ж Э Я ЧС М И Т Ь Б Ю ,№ * "
   If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
   End Sub

13. Записа т ь програ м м н ый код д л я процед у ры, описыва ющей событие
    Change() д л я объект а у пра вл ен ия Text2, и осу щест вл яющей провер-
    ку коррект н ости ввод им ыхчисл овыхд а н н ых в т екст овое пол е:

   Private Sub Text2_Change()
   N = CInt(Text2.Text)
   End Sub

   Private Sub Text2_KeyPress(KeyAscii As Integer)
   sTemplate =
   "qwertyuiop[]asdfghjkl;',.zxcvbnm,/QWERTYUIOP{}ASDFGHJKL
   :ZXCVBNM<>?-
   =\_+|`~!@#$%^&*()й цу кенгш щзх ъф ы вапролджэяч с м ить бю Й Ц У
   К Е Н Г Ш Щ ЗХ Ъ Ф Ы В АП Р О Л Д Ж Э Я ЧС М И Т Ь Б Ю ,№ * "
   If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
   End Sub

14. П роверит ь коррект н ост ь ра бот ы прил ож ен ия и, при н еобход им ост и ,
    испра вит ь ошибки.

Страницы