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

       REM     Процедура вычисления a, b
              SUB ab(i)
                   SHARED a,b
       IF i MOD 2 <>0 THEN a=i^2:b=i^3 ELSE a=i:b=i^2
              END SUB
       Обратите внимание, что оператор END необязателен в программе,
т.к. в процедуру ab можно попасть лишь по оператору CALL ab(i).
       2.8.4. Составить три программы для вычисления и вывода на экран
монитора значений функции из таблицы 2.5 для x, изменяющегося от -20
до 20 с шагом 2.
                                                           Таблица 2.5
  № ва-                              № ва-
                    Функция                          Функция
 рианта                              рианта
                 ⎧ 0 .5 X 3 + 1 ,    X ≤ − 10             ⎧
                 ⎪                                        ⎪ X 4 − 12 ,       X ≤ −1
             Z = ⎨ ( X + 1) 2
                                , − 10 < X < 1            ⎪
   1                                             7    Z = ⎨ ( 2 X + 1) 3 , − 1 < X < 1
                 ⎪ X + 10 ,           X ≥ 10
                 ⎩                                        ⎪      x + 11 ,     X ≥1
                                                          ⎪
                                                          ⎩         x
                 ⎧ sin X      , X ≤ −π                    ⎧     sin 3X ,   X ≤ −π
                 ⎪                                        ⎪
             Z = ⎨( X + 13) , − π < X < π             Z = ⎨(cos X + 1) , − π < X < π
   2             ⎪ (x 3 + 2x) ,                  8        ⎪
                 ⎩               X ≥π                     ⎩     2x     ,    X≥π

                  10                                        n
   3         Α = ∑ 4 1000 n + x 4                9    Α=   ∏ x + 3k
                  n =1                                     k =1

                   n
                       cos X                                n
   4         Α=∏                                 10   Α = ∏ ( xk + 2 ) 3
                  k =1  2k                                 k =1

                   n                                       10
                                                               xn
   5         Α=   ∑ (X 4   + 4k )                11   Α=   ∑
                  k =1                                     n =1 n
                   n                                       15
   6         Α=   ∏ ex   + kx                    12   Α=   ∑      x+k
                  k =1                                     k =5


      Номер варианта задается преподавателем. В первой программе для
организации цикла использовать оператор FOR/NEXT, во второй −
WHILE/WEND, а в третьей − DO/LOOP. Вывести полученные результаты на
экран монитора и на принтер: в первой программе в строку с точностью 2
знака после запятой; во второй программе − в столбец с точностью 1 знак