Вычислить сумму трех последовательно расположенных элементов массива - VB

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

Задан массив d. Составить подпрограмму для вычисления суммы трех последовательно расположенных элементов массива с номерами от k до p

Решение задачи: «Вычислить сумму трех последовательно расположенных элементов массива»

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

                            Sub подпрограмма(d, k, p, s)
For k = k To p
s = s + d(k)
Next
End Sub
 
Sub test()
    d = Array(1, 2, 3)
    s = 200
    подпрограмма d, 0, 2, s
    Debug.Print s
End Sub
                        

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

7 голосов , оценка 4.429 из 5

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