Определить есть ли среди цифр одинковые, вывести их - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д