И снова VBA.....

[Sasha_Smirnov]

Вручную. Просто не берите такие K, которые превосходят N. Программно же нельзя!

А тот кусок кода мне и самому малопонятен. Примеры же я привёл на картинке; они не врут.

[Ingez]

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

(1)Вручную. Просто не берите такие K, которые превосходят N. Программно же нельзя!

(2)А тот кусок кода мне и самому малопонятен. Примеры же я привёл на картинке; они не врут.

(1)Неужели "программно" нет никаких способов уж?!
(2)Я знаю, что "примеры не врут"! Но в данном случае мне было важно самому понять код.=))

[Sasha_Smirnov]

Способов куча, но в задании-то запрет на условный оператор (и его аналоги). (на 1)
И до сих пор важно? Ну, может, кто-то его прокомментирует получше, чем я сам! (на 2)

Вот, я надеюсь, более понятный

Option Explicit
Option Base 1
Const N = 4   'размер массивов A и B (для испытаний взят небольшой)

Sub NewWayToArray()
Dim i As Long, j As Long, K As Long  'переменные для циклов
Dim A(1 To N) 'массив A (из N элементов типа Variant - что позволяет использовать Join)
Dim B(1 To N) 'массив B (из N элементов типа Variant)

'присвоение значений массиву A
For i = 1 To N
    A(i) = Int(Rnd * 10) 'эл-т A(i) получает значение целого числа из диапазона [0; 9]
Next

'присвоение значений массиву B
B(1) = A(1) 'эл-т B(1) получает значение A(1) (для K = 1 это очевидно)

'теперь вычислим остальные элементы B, начиная со 2-го
For i = 2 To N
    K = i                   'индекс очередного элемента массива B
    B(K) = B(i - 1) + A(i)  'эл-т B(K) равен сумме предыдущего элемента массива B с элементом A(i)
Next

'вывод
    If MsgBox("A:" & vbTab & Join(A, vbTab) & vbCr & _
              "B:" & vbTab & Join(B, vbTab), _
        vbInformation + vbOKCancel) = vbOK Then
        NewWayToArray       'повторное испытание
    Else
        Exit Sub            'выход из подпрограммы
    End If
End Sub

По крайней мере, пригодится для испытаний — как в Excel, так и Word.

[Ingez]

Спасибо Вам Sasha_Smirnov большое!