Изменить код, чтобы вектор стоял как матрица - VB

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

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

Как поменять, чего добавить, чтобы вектор стоял, как матрица, по виду, и не прыгал (закиньте в VB, сразу поймете) Вот код:
Листинг программы 
  1. Private Sub Command1_Click()
  2. Dim m As Integer, i As Integer, j As Integer, A() As Integer, b() As Integer, n As Integer
  3. m=inputbox(“введите количество строк”)
  4. n=inputbox(“Введите количество столбцов”)
  5. ReDim A(1 To m, 1 To n)
  6. b = A
  7. Print Spc(10); ("исходный массив")
  8. Print
  9. For i = 1 To m
  10. For j = 1 To n
  11. A(i, j) = InputBox("A(" & i & "," & j & ")")
  12. Print A(i, j);
  13. Next j
  14. Print
  15. Next i
  16. Print
  17. Print "вектор"
  18. For i = 1 To m
  19. For j = 1 To n
  20. b(i, j) = InputBox(" b ((" & i & "," & j & ")")
  21. Print b(i, j);
  22. Next
  23. Print
  24. Print
  25. Print "Конечный массив"
  26. For j = 1 To n
  27. A(i, j) = A(i, j) + b(i, j)
  28. Print A(i, j);
  29. Next j
  30. Print
  31. Next i
  32. End Sub

Решение задачи: «Изменить код, чтобы вектор стоял как матрица»

textual
Листинг программы 
  1. Private Sub Command1_Click()
  2. Dim m As Integer, i As Integer, j As Integer, A() As Integer, b() As Integer, n As Integer
  3. m=inputbox(“введите количество строк”)
  4. n=inputbox(“Введите количество столбцов”)
  5. ReDim A(1 To m, 1 To n)
  6. ReDim b(1 To m, 1 To n)
  7. Print Spc(10); ("исходный массив")
  8. Print
  9. For i = 1 To m
  10. For j = 1 To n
  11. A(i, j) = InputBox("A(" & i & "," & j & ")")
  12. Print A(i, j);
  13. Next j
  14. Print
  15. Next i
  16. Print
  17. Print "вектор"
  18. For i = 1 To m
  19. For j = 1 To n
  20. b(i, j) = InputBox(" b ((" & i & "," & j & ")")
  21. Print b(i, j);
  22. Next j
  23. Print
  24. Next i
  25. Print
  26. Print "Конечный массив"
  27. For j = 1 To n
  28. For i = 1 To m
  29. A(i, j) = A(i, j) + b(i, j)
  30. Print A(i, j);
  31. Print
  32. Next i
  33. Next j
  34. End Sub
  35.  
  36. [size="1"][color="grey"][I]Добавлено через 1 минуту[/I][/color][/size]
  37. конечная матрица в один столбик, вместо того, чтобы иметь и строчки, тоже
  38.  
  39. [size="1"][color="grey"][I]Добавлено через 5 минут[/I][/color][/size]
  40. черт побери, нашел в чем была бида, принт, после Print A(i, j), всю красу портил, зараза
  41.  
  42. [size="1"][color="grey"][I]Добавлено через 56 секунд[/I][/color][/size]
  43. Private Sub Command1_Click()
  44. Dim m As Integer, i As Integer, j As Integer, A() As Integer, b() As Integer, n As Integer
  45. m=inputbox(“введите количество строк”)
  46. n=inputbox(“Введите количество столбцов”)
  47. ReDim A(1 To m, 1 To n)
  48. ReDim b(1 To m, 1 To n)
  49. Print Spc(10); ("исходный массив")
  50. Print
  51. For i = 1 To m
  52. For j = 1 To n
  53. A(i, j) = InputBox("A(" & i & "," & j & ")")
  54. Print A(i, j);
  55. Next j
  56. Print
  57. Next i
  58. Print
  59. Print "вектор"
  60. For i = 1 To m
  61. For j = 1 To n
  62. b(i, j) = InputBox(" b ((" & i & "," & j & ")")
  63. Print b(i, j);
  64. Next j
  65. Print
  66. Next i
  67. Print
  68. Print "Конечный массив"
  69. For j = 1 To n
  70. For i = 1 To m
  71. A(i, j) = A(i, j) + b(i, j)
  72. Print A(i, j);
  73. Next i
  74. Print
  75. Next j
  76. End Sub

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

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

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

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

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

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

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