Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения - VB
Формулировка задачи:
Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения
Решение задачи: «Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения»
textual
Листинг программы
Sub task(A() As Integer) Dim B() As Integer n% = UBound(A, 1) ReDim B(1 To n%) As Integer For i% = 1 To n% For j% = 1 To n% If B(j%) = 0 Then If A(j%) = A(i%) Then B(j%) = i% End If Next j% Next i% For i% = 1 To n% A(i%) = B(i%) Next i% Erase B End Sub Sub Start() Dim X(1 To 10) As Integer X(1) = 8 X(2) = 3 X(3) = 7 X(4) = 8 X(5) = 7 X(6) = 3 X(7) = 7 X(8) = 8 X(9) = 1 X(10) = 7 task X For i% = 1 To 10 Debug.Print X(i%); " "; Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д