Смена строк местами (матрица) - 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