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

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

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

Доброго всем времени суток.Помогите пожалуйста с решением задачки в Visual Basic: Даны две матрицы А и В с одинаковым количеством столбцов и разным количеством строк.Переписать их в новую матрицу. Уже дня три мучаюсь с нею.Прикинул,что если матрица А была размером (i,j),а матрица В размером (k,j),то итоговая матрица С будет размером (i+k,j). Прописал код для матрицы А и В ,а как получить С чего-то не соображу.Помогите пожалст.Очень расчитываю на ваву помощь. Вот код половины проги:

Решение задачи: «Оъединение двух массивов в один»

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

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


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

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

6   голосов , оценка 4.833 из 5
Похожие ответы