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