Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m - VB
Формулировка задачи:
7. Задан массив D из 6 элементов. Определить следующие суммы: D[1] + D[2] + D[3]; D[3] + D[4] + D[5]; D[4] + D[5] + D[6]. Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m .
Если можно с панелем и окном:*(.
а то я делаю выдает ошибку
Решение задачи: «Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m»
textual
Листинг программы
Option Explicit
Dim D(1 To 6) As Single
Private Sub Command1_Click()
Dim i As Integer, k As Integer, m As Integer, sum As Integer
Print "Массив "
For i = 1 To 6
D(i) = InputBox("D(" & i & ") = ", "", Int(Rnd * 10))
sum = sum + D(i)
Print D(i);
Next i
Print
Print "Сумма всех элементов массива равна " & sum
k = InputBox("k = ", "", 2)
m = InputBox("m = ", "", 4)
Call Summa(1, 3)
Call Summa(3, 5)
Call Summa(4, 6)
Call Summa(k, m)
End Sub
Private Sub Summa(nach As Integer, konez As Integer)
Dim sum As Integer, i As Integer
For i = nach To konez
sum = sum + D(i)
Next i
Print "Сумма элементов массива с " & nach & "-го по " & konez & "-й равна "; sum
End Sub