Объединить 2 числовых массива с чередованием элементов - VB

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

здарвствуйте передо мной встала задача, как объединить 2 числовых массива с чередованием элементов появилась такая идея, что сначала создатьмассив, в которм будут по 2 раза повторяться элементы первого массива, а потом уже в этом массиве заменить каждый второй элемент элементом из второго массива подскажите, как это можно осуществить

Решение задачи: «Объединить 2 числовых массива с чередованием элементов»

textual
                            Листинг программы 
                        

                            Sub Task_1()
Dim A, B, C
ReDim C(9)
A = Array(0, 2, 4, 6, 8)
B = Array(1, 3, 5, 7, 9)
For i = 0 To 9
    C(i) = IIf(i And 1, B(i \ 2), A(i \ 2))
    sStr = sStr & C(i) & ", "
Next
MsgBox sStr
End Sub
                        

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

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

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