Поменять местами элементы 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

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


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

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

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