Visual Basic. Теория. Нагина Е.К - 64 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

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


Private Sub Command3_Click()
End
End Sub

' Задание массива
Private Sub Command4_Click()
If Text1.Text = "" Then GoTo 10
ReDim a(M)
10 End Sub

' Д о бавляем элементы
Private Sub Command5_Click()
For i = 1 To M
a(i) = InputBox("введите " & i & " элемент", "В во д элемента", "0")
Next i
End Sub

Private Sub Command6_Click()
List1.Clear
End Sub

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

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




     Рис. 3. Ф о рмадля вво даэлементо вмассиваи вы во дасо о бщ ения

Страницы