Как обменять данные в двух массивах: в одном массиве с 1-ого по 10-ый элемент, в другом с 11–го по 20–ый элемент - VBA
Формулировка задачи:
Помогите, пожалуйста на VBA
Создать два одномерных массива по 20 целочисленных значений. Совершить обмен данными: в одном массиве с 1-ого по 10- ый элемент, в другом с 11 – го по 20 – ый элемент, т.е. Х1 на Y11, Y11 на X1 и т.д.
Решение задачи: «Как обменять данные в двух массивах: в одном массиве с 1-ого по 10-ый элемент, в другом с 11–го по 20–ый элемент»
textual
Листинг программы
Sub pr() Dim a&(1 To 20), b&(1 To 20), i&, temp& For i = 1 To 20 a(i) = Int(Rnd * 50) + 1 b(i) = Int(Rnd * 30) + 1 Next [a1].Resize(1, 20) = a [a2].Resize(1, 20) = b For i = 1 To 10 temp = a(i) a(i) = b(i + 10) b(i + 10) = temp Next [a4].Resize(1, 20) = a [a5].Resize(1, 20) = b End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д