Поменять местами элементы 3-й и 6-й строк массива - VB

Формулировка задачи:

Добрый день, всем и каждому. Помогите с решением следующей задачки. Нужно Поменять местами элементы 3-й и 6-й строк. Результат вывести на лист Заранее спасибо.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Sub mass_()
Dim a(1 To 7, 1 To 9) As Integer, i As Integer, j As Integer, s, max, prom
 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)
  End If
   Next j
   Next i
   s = a(5, j) + a(7, j)
   prom = a(3, j): a(3, j) = a(6, j): a(6, j) = prom
Cells(1, 12) = "max="
Cells(1, 13) = max
Cells(2, 12) = "s="
Cells(2, 13) = s
End Sub

Решение задачи: «Поменять местами элементы 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы