помогите решить задачу сортировка одномерных массивов в ВБА

[ViktorR]

Печаль.
Тут ведь всё просто. Надо только мозг включить.
Сортировку результирующего массива, как следует, хотя и неявно, из условия задачи, делать не следует.
Поясню ещё раз:
Берёшь первые элементы сливаемых массивов и сравниваешь их. Меньший из элементов вставляешь в третий массив. Поскольку первый элемент массива, пусть это будет mas1, вставлен на место (в третий массив), то индекс для mas1 и соответствующий индекс для третьего массива, увеличиваем.
Продолжая сравнение мы попеременно продвигаемся по элементам массивов.
В условиях сравнения контролируем, что бы соответствующий индекс не вышел за границу массива.
Как только будет переполнение, вываливаемся из цикла.
Поскольку мы исчерпали один из массивов, то проверяем состояние их индексов.
Элементы массива, который не был исчерпан, переписываем в третий массив.

PS: Отличия между VB и Паскалем, в той части, которая интересует тебя минимальны.
Не ставь точки с запятой, в присвоении не ставь двоеточие, в условных операторах нет нужды в begin ... end, там используется end if и т.п.

[сергей_ком]

Сообщение от ViktorR

Печаль.
Тут ведь всё просто. Надо только мозг включить.
Сортировку результирующего массива, как следует, хотя и неявно, из условия задачи, делать не следует.
Поясню ещё раз:
Берёшь первые элементы сливаемых массивов и сравниваешь их. Меньший из элементов вставляешь в третий массив. Поскольку первый элемент массива, пусть это будет mas1, вставлен на место (в третий массив), то индекс для mas1 и соответствующий индекс для третьего массива, увеличиваем.
Продолжая сравнение мы попеременно продвигаемся по элементам массивов.
В условиях сравнения контролируем, что бы соответствующий индекс не вышел за границу массива.
Как только будет переполнение, вываливаемся из цикла.
Поскольку мы исчерпали один из массивов, то проверяем состояние их индексов.
Элементы массива, который не был исчерпан, переписываем в третий массив.

PS: Отличия между VB и Паскалем, в той части, которая интересует тебя минимальны.
Не ставь точки с запятой, в присвоении не ставь двоеточие, в условных операторах нет нужды в begin ... end, там используется end if и т.п.

то что вышло ПК запускать в принципе не хочет. а с последней частью

dim i, j as  integer;
dim c, d, e: Tmas;
   randomize;
   clrscr;
   makeMas(c, a)
   makeMas(, mas2N);
   prnMas(mas1, mas1N);
   prnMas(mas2, mas2N);
   insMas(mas1, mas1N, mas2, mas2N, mas3);
   prnMas(mas3, mas1N + mas2N);
   readln();

вообще ничего не понятно
а вот это- полученный код

  Sub z4()
Dim a(), b(), c, d, e() As Integer
c = CInt(InputBox("введите количество элементов массива А"))
d = CInt(InputBox("введите количество элементов массива B"))
i = 1
ReDim a(1 To c)
For i = 1 To c
a(i) = CInt(InputBox("введите элементы массива А"))
Next i
ReDim b(1 To d)
For i = 1 To d
b(i) = CInt(InputBox("введите элементы массива В"))

km = c + d
i = 1
j = 1
k = 1
While k <= km

      If a(i) < b(j) Then
      
         e(k) = a(i)
         i = i + 1
         End If
         If i > c Then
      End
      Else
         e(k) = b(j)
         j = j + 1
         End If
         If j > d Then
      End
      k = k + 1
   End
   End If
   For im = k + 1 To km
 
      If i > c Then

         e(im) = d(j)
         j = j + 1
      End If
      If j > d Then

         e(im) = a(i)
         i = i + 1
Next im
Next k
Next i
Next j

For i = 1 To sizeArr - 1

If e(i) > e(i + 1) Then e(i) = e(i + 1): e(i + 1) = e(i)

Next i
s = ""
For k = 1 To c + d
s = s + CStr(e(k)) + " "
Next k
MsgBox s

[сергей_ком]

Всё. Сортировку наконец разобрал. спасибо вам, ViktorR за помощь, без вас я бы вряд ли это смог разобрать.