Основы программирования на VBA. Регеда В.В - 31 стр.

                n
функции   Α=   ∏      x2 + k 2   при x, изменяющегося от 0 до 5 с шагом 0.5 и для
               k =1

любого значения n:
     INPUT “Введите значение n”; n
     FOR x=0 TO 5 STEP 0.5
              A=1
         FOR k=1 TO n
         A=A*SQR(x^2+k^2)
         NEXT k
              PRINT A
     NEXT x
      Обратите внимание, что вычисление произведения организуется в
теле цикла путем последовательного перебора и умножения отдельных со-
множителей A=A*f(x,k). При этом первое произведение получается пу-
тем умножения первого сомножителя на единицу (А=1). Если необходимо
                                                 n
организовать вычисление суммы, Α            =   ∑ f ( x , k ) , то в теле цикла необходи-
                                                k =1

мо последовательно перебирать и складывать отдельные слагаемые по
формуле A=A+f(x,k). При этом первая сумма получается путем сложе-
ния первого слагаемого с нулем, т.е. перед внутренним циклом необходи-
мо присвоить А значение, равное нулю.
      Если несколько циклов имеют общий конечный оператор, можно
указать для них один оператор NEXT, перечислив в нем переменные цик-
лов в порядке, обратном порядку операторов FOR.
      2.7.2. Циклы с неопределенным количеством повторений позволяет
задавать конструкция WHILE/WEND, в которой указывается условие про-
должения цикла:
     WHILE x
          ...[операторы]
     WEND
     где x − числовое выражение.
     Цикл повторяется до тех пор, пока выражение x не станет равным
нулю. При x=0 операторы до WEND включительно пропускаются, и про-
грамма выполняется дальше.
     Например, для алгоритма рис. 2.3 будет иметь следующий вид: