Поменять местами 1 и 4 столбцы матрицы, а затем 2 и 3 строку - VB
Формулировка задачи:
Здравствуйте, подскажите ещё пожалусто, как составить код программы для следующей задачи:
В квадратной матрице A поменять местами 1й и 4й столбцы матрици и вывести её, а затем 2юи 3ю строку
Решение задачи: «Поменять местами 1 и 4 столбцы матрицы, а затем 2 и 3 строку»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim A(1 To 4, 1 To 4) As Integer, i As Integer, j As Integer, temp As Integer For i = 1 To 4 For j = 1 To 4 A(i, j) = Int(Rnd * 3) Print A(i, j); Next j Print Next i Print For i = 1 To 4 temp = A(i, 4): A(i, 4) = A(i, 1): A(i, 1) = temp Next i For i = 1 To 4 For j = 1 To 4 Print A(i, j); Next j Print Next i Print For j = 1 To 4 temp = A(2, j): A(2, j) = A(3, j): A(3, j) = temp Next j For i = 1 To 4 For j = 1 To 4 Print A(i, j); Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д