ВЫЧИСЛЕНИЕ СУММ, ПРОИЗВЕДЕНИЙ, ЭКСТРЕМУМОВ

Рассмотрим примеры, демонстрирующие возможности использования в программах операторов цикла и условных операторов.

Примеры вычисления сумм и произведений

Пример 1. Программа вычисления суммы элементов

b = {5, 2; 4,5; 1; 2,9; 3}.

Sub CommandButton1_Click()

Dim b As Single, s As Single, i As Integer

s = 0

For i = 1 To 5

b = Val(InputBox(«Введите элемент массива b»))

s = s + b

Next

MsgBox (“Сумма элементов массива равна= ” & s)

End Sub

Здесь элементы b вводятся с клавиатуры по одному числу, сумма чисел вычисляется в переменной s.

Не нашли, что искали? Воспользуйтесь поиском: