Написать процедуру вычисления суммы трех последовательно расположенных элементов массива с номерами от 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 "Сумма всех элементов массива равна " & 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
