Смена строк местами (матрица) - VB
Формулировка задачи:
Здравствуйте!
У меня есть такая задача:
Напишите программу, которая меняет строку A со строкой B местами и выводит полученную матрицу на экран.
Можете написать "базовым языком"?
За ранее благодарен!
Я пытаюсь через 3 переменную решить задачу.
Можно ли так задать матрицу?
Решение задачи: «Смена строк местами (матрица)»
textual
Листинг программы
Dim m(5, 5) As Integer Form1.Cls Dim a As Integer, b As Integer, r As Integer 'Г¬Г*òðèöГ* m r = InputBox("Г°Г*ìåðГ*îñòü Г¬Г*ðòðèöû") For i = 0 To r - 1: For j = 0 To r - 1 m(i, j) = Rnd(1) * 9 \ 1 Print m(i, j) & " "; Next j Print Next i Print a = InputBox(" Г*îìåð ñòðîêè a") \ 1 b = InputBox("Г*îìåð ñòðîêè b") \ 1 If a > r Or b > r Then MsgBox "Г°Г*çìåðГ*îñòü Г¬Г*òðèöû ìåГ*ГјГёГҐ Г*îìåðГ* ñòðîêè": Exit Sub If a < 1 Or b < 1 Then MsgBox "Г*îìåð ñòðîêè Г*ГҐ ìîæåò áûòü ìåГ*ГҐГҐ åäèГ*èöû": Exit Sub 'ïåðåìåùåГ*ГЁГҐ ñòðîê Dim z As Integer For i = 0 To r - 1 z = m(a - 1, i): m(a - 1, i) = m(b - 1, i): m(b - 1, i) = z Next i 'âûâîä Г¬Г*òðèöû Г¬ For i = 0 To r - 1: For j = 0 To r - 1 Print m(i, j) & " "; Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д