Поменять местами элементы 3-й и 6-й строк массива - VB
Формулировка задачи:
Добрый день, всем и каждому. Помогите с решением следующей задачки.
Нужно
Поменять местами элементы 3-й и 6-й строк.
Результат вывести на лист
Заранее спасибо.
Решение задачи: «Поменять местами элементы 3-й и 6-й строк массива»
textual
Листинг программы
Option Explicit Sub mass_() Dim a(1 To 7, 1 To 9) As Integer, i As Integer, j As Integer, s, max, tmp Randomize max = -131 For i = 1 To 7 For j = 1 To 9 a(i, j) = Int((150 + 130 + 1) * Rnd - 130) Cells(i, j) = a(i, j) If max < a(i, j) Then max = a(i, j) Next j Next i Cells(1, 12) = "max=": Cells(1, 13) = max For j = 1 To 9 tmp = a(3, j): a(3, j) = a(6, j): a(6, j) = tmp Next j For i = 1 To 7 For j = 1 To 9 Cells(i + 9, j) = a(i, j) Next j Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д