Определить есть ли среди цифр одинковые, вывести их - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста.Определить есть ли среди цифр массива одинковые, вывести их

Решение задачи: «Определить есть ли среди цифр одинковые, вывести их»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Click()
Cls 'чистим форму
Const n = 20
Randomize 'для правильной работы рандома
Dim arr(1 To n) As Integer 'созданный массив на n = 20 элементов
Dim i As Integer, j As Integer, r As Integer, b As Integer
Dim count As Integer
b = 40 'произвольный множитель рандома
For i = 1 To n
arr(i) = Int(Rnd * b) 'заполняем случайными числами 0-40
Print arr(i);
Next
r = b + 1 'временная переменная для сохранения дубликата (не должна быть равной ни одному элементу массива)
Print
For i = 1 To n
  If arr(i) <> r Then
     count = 1 'сбрасываем счетчик при каждом новом входе в цикл
     For j = i + 1 To n
         If arr(i) = arr(j) Then 'сравниваем каждый элемент массива и если равный
            arr(j) = r 'сoхраняем в переменной
            count = count + 1 'наращиваем счетчик
         End If
     Next j
   If count >= 2 Then Print arr(i); " : "; count 'если такой элемент уже есть печатаем его
                                                  'и сколько раз встречается
   End If
 Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы