Изменить код, чтобы вектор стоял как матрица - VB
Формулировка задачи:
Как поменять, чего добавить, чтобы вектор стоял, как матрица, по виду, и не прыгал (закиньте в VB, сразу поймете)
Вот код:
Решение задачи: «Изменить код, чтобы вектор стоял как матрица»
textual
Листинг программы
Private Sub Command1_Click() Dim m As Integer, i As Integer, j As Integer, A() As Integer, b() As Integer, n As Integer m=inputbox(“введите количество строк”) n=inputbox(“Введите количество столбцов”) ReDim A(1 To m, 1 To n) ReDim b(1 To m, 1 To n) Print Spc(10); ("исходный массив") Print For i = 1 To m For j = 1 To n A(i, j) = InputBox("A(" & i & "," & j & ")") Print A(i, j); Next j Print Next i Print Print "вектор" For i = 1 To m For j = 1 To n b(i, j) = InputBox(" b ((" & i & "," & j & ")") Print b(i, j); Next j Print Next i Print Print "Конечный массив" For j = 1 To n For i = 1 To m A(i, j) = A(i, j) + b(i, j) Print A(i, j); Print Next i Next j End Sub [size="1"][color="grey"][I]Добавлено через 1 минуту[/I][/color][/size] конечная матрица в один столбик, вместо того, чтобы иметь и строчки, тоже [size="1"][color="grey"][I]Добавлено через 5 минут[/I][/color][/size] черт побери, нашел в чем была бида, принт, после Print A(i, j), всю красу портил, зараза [size="1"][color="grey"][I]Добавлено через 56 секунд[/I][/color][/size] Private Sub Command1_Click() Dim m As Integer, i As Integer, j As Integer, A() As Integer, b() As Integer, n As Integer m=inputbox(“введите количество строк”) n=inputbox(“Введите количество столбцов”) ReDim A(1 To m, 1 To n) ReDim b(1 To m, 1 To n) Print Spc(10); ("исходный массив") Print For i = 1 To m For j = 1 To n A(i, j) = InputBox("A(" & i & "," & j & ")") Print A(i, j); Next j Print Next i Print Print "вектор" For i = 1 To m For j = 1 To n b(i, j) = InputBox(" b ((" & i & "," & j & ")") Print b(i, j); Next j Print Next i Print Print "Конечный массив" For j = 1 To n For i = 1 To m A(i, j) = A(i, j) + b(i, j) Print A(i, j); Next i Print Next j End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д