Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 74 стр.

                                     74

Option Explicit
' Задать одномерный массив и проверить, все ли элементы одинаковые
Option Base 1
Dim a() As Integer
Dim M, i, j, flag As Integer
Dim sTemplate As String
'Просчет
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
    Label1.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= “qwetyuiop[]asdfghjkl;'zxcvbnm,/ QWERTYUIOP{}ASDFGHJK_
L:ZXCVBNM<>?=\_+|`~!@#$%^&*()йцукенгшщзхъфывапролджэячсмить_
бюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,№* "