Смена строк местами (матрица) - VB
Формулировка задачи:
Здравствуйте!
У меня есть такая задача:
Напишите программу, которая меняет строку A со строкой B местами и выводит полученную матрицу на экран.
Можете написать "базовым языком"?
За ранее благодарен!
Я пытаюсь через 3 переменную решить задачу.
Можно ли так задать матрицу?
Листинг программы
- Dim c(1 To 3, 1 To 3) As Integer
- Dim q As Integer
- a = 1
- b = 2
- c(a, 1) = 11
- c(a, 2) = 12
- c(a, 3) = 13
- c(b, 1) = 21
- c(b, 2) = 22
- c(b, 3) = 23
- c(3, 1) = 31
- c(3, 2) = 32
- c(3, 3) = 33
- q = a
- a = b
- b = q
Решение задачи: «Смена строк местами (матрица)»
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
- Next i
- 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
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д