Объединить два одномерных массива, состоящих из цифр, вводимых рандомно - VB

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

Доброго времени суток. Есть задача - объединить два одномерных массива, состоящих из цифр, вводимых рандомно. Массив а и б объединяются в новый массив z. Если делать так:

                    Листинг программы
                
 For i = 0 To UBound(x)
            z(i) = x(i)
        Next i
  For i = 0 To UBound(y)
            z(i) = y(i)
        Next i

то в исходном массиве будет выводится только второй массив. Так как же просто слить два эти массива? Заранее благодарен за ответ

Решение задачи: «Объединить два одномерных массива, состоящих из цифр, вводимых рандомно»

textual
                            Листинг программы 
                        
 
                        
                          
                    
n2 = UBound(x) + UBound(y) + 1
ReDim z(n2)
For i = 0 To UBound(x)
z(i) = x(i)
Next i
For i = UBound(x) + 1 To n2
z(i) = y(i - UBound(x) - 1)
Next i

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

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

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

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

Похожие ответы