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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.4 из 5
Похожие ответы