End Sub. Рис. 9.6. Вычисление суммы Рис

Рис. 9.6. Вычисление суммы

Рис. 9.7. Вычисление произведения

Решим эту же задачу с использованием цикла Do…Loop.

Sub Demo_Summa()

DimiAs Integer

Dim sStart, sEnd As Integer

Dim Sum As Long

sEnd = InputBox("Введите длину ряда:", "Запрос программы")

sStart = 1

i = sStart

Sum = 0

Do

Sum = Sum + i

i = i + 1

Loop While i <= sEnd

MsgBox "Сумма чисел от " & sStart & " до " & sEnd & " равна " & Sum, , "Решение задачи"