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

                                      62


'П ро счет
Private Sub Command2_Click()
For i = 1 To M - 1
For j = i + 1 To M
If a(i) = a(j) Then flag = 1: GoTo 30
Next j
Next i
30 If flag = 0 Then Label1.Caption = "В се элементы разны е" Else La-
bel1.Caption = "Е сть о динако вы е элементы "
End Sub

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 Form_Load()
flag = 0
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