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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

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

 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. О бъясн ит ь су т ь процед у ры, за писа н н ой н иж е.

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

Страницы