Оъединение двух массивов в один - VB

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

Доброго всем времени суток.Помогите пожалуйста с решением задачки в Visual Basic: Даны две матрицы А и В с одинаковым количеством столбцов и разным количеством строк.Переписать их в новую матрицу. Уже дня три мучаюсь с нею.Прикинул,что если матрица А была размером (i,j),а матрица В размером (k,j),то итоговая матрица С будет размером (i+k,j). Прописал код для матрицы А и В ,а как получить С чего-то не соображу.Помогите пожалст.Очень расчитываю на ваву помощь. Вот код половины проги:
Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100), B(1 To 100, 1 To 100), C(1 To 100, 1 To 100), n, m, l, i, j, k As Integer
n = Val(InputBox("Введите кол-во строк в матрие А"))
l = Val(InputBox("Введите кол-во строк в матрице B"))
m = Val(InputBox("Введите кол-во столбцов в А и В"))
Print "A="
For i = 1 To n
For j = 1 To m
A(i, j) = Int(Rnd * 10)
Print A(i, j); vbTab;
Next j
Print
Next i
Print "B="
For k = 1 To l
For j = 1 To m
B(k, j) = Int(Rnd * 10)
Print B(k, j); vbTab;
Next j
Print
Next k

Код к задаче: «Оъединение двух массивов в один - VB»

textual
Private Sub Command1_Click()
Dim A(), B(), C(), n, m, l, i, j, k As Integer
n = Val(InputBox("Введите кол-во строк в матрие А"))
l = Val(InputBox("Введите кол-во строк в матрице B"))
m = Val(InputBox("Введите кол-во столбцов в А и В"))
ReDim A(n, m), B(l, m), C(n + l, m)
Print "A="
For i = 1 To n
For j = 1 To m
A(i, j) = Int(Rnd * 10)
C(i, j) = A(i, j)
Print A(i, j); vbTab;
Next j
Print
Next i
Print: Print "B="
For k = 1 To l
For j = 1 To m
B(k, j) = Int(Rnd * 10)
C(n + k, j) = B(k, j)
Print B(k, j); vbTab;
Next j
Print
Next k
Print: Print "C="
For k = 1 To n + l
For j = 1 To m
Print C(k, j); vbTab;
Next j
Print
Next k
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ