Смена строк местами (матрица) - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! У меня есть такая задача: Напишите программу, которая меняет строку A со строкой B местами и выводит полученную матрицу на экран. Можете написать "базовым языком"? За ранее благодарен!
Я пытаюсь через 3 переменную решить задачу.
Можно ли так задать матрицу?
Листинг программы
  1. Dim c(1 To 3, 1 To 3) As Integer
  2. Dim q As Integer
  3. a = 1
  4. b = 2
  5. c(a, 1) = 11
  6. c(a, 2) = 12
  7. c(a, 3) = 13
  8. c(b, 1) = 21
  9. c(b, 2) = 22
  10. c(b, 3) = 23
  11. c(3, 1) = 31
  12. c(3, 2) = 32
  13. c(3, 3) = 33
  14. q = a
  15. a = b
  16. b = q

Решение задачи: «Смена строк местами (матрица)»

textual
Листинг программы
  1. Dim m(5, 5) As Integer
  2. Form1.Cls
  3. Dim a As Integer, b As Integer, r As Integer
  4. 'Г¬Г*òðèöГ* m
  5. r = InputBox("Г°Г*ìåðГ*îñòü Г¬Г*ðòðèöû")
  6. For i = 0 To r - 1: For j = 0 To r - 1
  7.  m(i, j) = Rnd(1) * 9 \ 1
  8.  Print m(i, j) & " ";
  9. Next j
  10. Print
  11. Next i
  12. Print
  13. a = InputBox(" Г*îìåð ñòðîêè a") \ 1
  14. b = InputBox("Г*îìåð ñòðîêè b") \ 1
  15. If a > r Or b > r Then MsgBox "Г°Г*çìåðГ*îñòü Г¬Г*òðèöû ìåГ*ГјГёГҐ Г*îìåðГ* ñòðîêè": Exit Sub
  16. If a < 1 Or b < 1 Then MsgBox "Г*îìåð ñòðîêè Г*ГҐ ìîæåò áûòü ìåГ*ГҐГҐ åäèГ*ГЁГ¶Г»": Exit Sub
  17. 'ïåðåìåùåГ*ГЁГҐ ñòðîê
  18. Dim z As Integer
  19. For i = 0 To r - 1
  20.  z = m(a - 1, i): m(a - 1, i) = m(b - 1, i): m(b - 1, i) = z
  21. Next i
  22. 'âûâîä Г¬Г*òðèöû Г¬
  23. For i = 0 To r - 1: For j = 0 To r - 1
  24.  Print m(i, j) & " ";
  25. Next j
  26. Print
  27. Next i
  28. End Sub

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


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

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

5   голосов , оценка 4.4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы