Поменять местами элементы матрицы - VB

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

При помощи датчика случайных чисел получить матрицу A порядка N (N – целое четное случайное число в диапазоне от 7 до 15). Поменять местами элементы в 1ой области с элементами в 4ой области. Вывести обе матрицы. 1ую и 4ую области выделить различным цветом. Код до того момента, когда нужно условие - Поменять элементы. Как нужно написать условие, что бы поменять элементы?

                    Листинг программы
                
 
                        
                          
                    
Sub zadacha()
Dim a() As Double,  N As Integer
Randomize Timer
N = Rnd * 8 + 7
ReDim a(N, N), Sum(N)
Sheets("Лист1").Select: Cells.Clear 'Очищаем весь рабочий лист
For i = 1 To N
For j = 1 To N
a(i, j) = Rnd * 8
Cells(i, j) = a(i, j)
Next j
Next i
 
End Sub

Решение задачи: «Поменять местами элементы матрицы»

textual
                            Листинг программы 
                        
tmp = Cells(i, j).Value
Cells(i, j).Value = Cells(N - j + 1, i).Value
Cells(N - j + 1, i).Value = tmp

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

15 голосов , оценка 4.2 из 5

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

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

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