End Sub

Рис. 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