Проверить наличие в массиве повторяющихся элементов - VB
Формулировка задачи:
Здравствуйте... Надеюсь на вашу помощь)
С клавиатуры вводится массив целых чисел A размером N. Проверить наличие в нем повторяющихся элементов (вывести на экран «yes», если повторяющиеся элементы существуют, иначе вывести «no»).
Спасибо.)
Решение задачи: «Проверить наличие в массиве повторяющихся элементов»
textual
Листинг программы
Private Sub Form_Load()
n = InputBox("Введите n")
ReDim a(n) As Integer
t = "NO"
For i = 0 To n - 1
a(i) = InputBox("Введите a(" & i & ")")
For j = 0 To i - 1
If a(i) = a(j) Then t = "YES"
Next
Next
MsgBox t
Unload Me
End Sub