Подпрограмма вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m - VB

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

Задан массив D из 6 элементов. Определить следующие суммы: D[1] + D[2] + D[3]; D[3] + D[4] + D[5]; D[4] + D[5] + D[6]. Пояснение. Составить подпрограмму вычисления суммы трех последовательно расположенных элементов массива с номерами от k до m . Вот код написанный без использования функций

Dim s1, s2, s3 As Integer
Dim d()
Private Sub Command1_Click()
ReDim d(6)
s1 = 0
s2 = 0
s3 = 0
For i = 1 To 6
  d(i) = InputBox("ввод элементов")
  Print d(i)
Next i
For i = 1 To 3
  s1 = s1 + d(i)
 
Next i

For i = 3 To 5
  s2 = s2 + d(i)
Next i
For i = 4 To 6
  s3 = s3 + d(i)
Next i
Print
Print
 
Print s1, s2, s3
End Sub

как его можно переделать чтобы использовались функции

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

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

                            Private function Fun1(byval a As Integer, byval b As Integer, byval c As Integer, byval d As Integer) as Boolean
    Fun1=a * b - c * d = a + b + c + d
End Function
 
Private function Fun2(byval a As Integer, byval b As Integer, byval c As Integer, byval d As Integer) as Boolean
    Fun2=a <> b And a <> c And a <> d And b <> c And b <> d And c <> d
End Function
                        

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

12 голосов , оценка 4.083 из 5

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