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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

68
9. Записать программный код для объекта кнопка Command4 (Задать ),
поместив в событие Click() следующие операторы :
' Задание массива
Private Sub Command4_Click()
If Text1.Text = "" Then GoTo 10
ReDim a(M)
10 End Sub
10. Записать программный код для объекта кнопка Command5 (Доба-
вить ), поместив в событие Click() следующие операторы :
' Добавляем элементы
Private Sub Command5_Click()
For i = 1 To M
a(i) = InputBox("введите " & i & " элемент ", "Ввод элемента", "0")
Next i
End Sub
11. Записать программный код для объекта кнопка Command6 (Очис-
тить ), поместив в событие Click() следующие операторы :
Private Sub Command6_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:ZX
CVBNM<>?-
=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмитьбюЙЦУ-
КЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ ,№ * "
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub
13. Проверить корректность работы приложения и, при необходимости,
исправить ошибки. 
                                     68

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

    ' Задан и е масси ва
    Private Sub Command4_Click()
    If Text1.Text = "" Then GoTo 10
    ReDim a(M)
    10 End Sub
10. Записа т ь програ м м н ый код д л я объект а кн опка Command5 (Д оба-
    вить ), пом естив в событ ие Click() сл ед у ющие опера т оры:

' Д оба вл яем эл ем ен ты
Private Sub Command5_Click()
For i = 1 To M
a(i) = InputBox("введите" & i & " элем ент", "В вод элем ента", "0")
Next i
End Sub
11. Записа т ь програ м м н ый код д л я объект а кн опка Command6 (О ч ис -
    тить ), пом естив в событ ие Click() сл ед у ющие опера т оры:

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

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

Страницы