Комплекс лабораторных работ по программированию на vba

5.2. Задания для выполнения лабораторной работы

(Время на выполнение 2 часа)

1. 
   Найти сумму ряда чисел от 1 до 10, используя циклы: с предусловием (пока ложь), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
2. 
   Найти сумму ряда чисел от 1 до 10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
3. 
   Найти сумму ряда чисел от 1 до 10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
4. 
   Найти сумму чисел применив функцию Sin(x), 1<=x<=10, используя циклы: с предусловием (пока ложь), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
5. 
   Найти сумму чисел применив функцию Cos(x), 1<=x<=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
6. 
   Найти сумму чисел применив функцию Sin(x)+Cos(x),
   1<= x <=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
7. 
   Найти произведение чисел, применив функцию Sin(x),
   1<= x <=10, используя циклы: с предусловием (пока ложь), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
8. 
   Найти произведение чисел, применив функцию Cos(x),
   1<= x <=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
9. 
   Найти произведение чисел, применив функцию Sin(x)+Cos(x), 1<= x <=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case.
   
10. 
    Найти разность чисел, применив функцию Sin(x)+Cos(x),
    1<= x <=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case.
    
11. 
    Найти сумму целых чисел применив функцию Int(Cos(x)*25), 1<=x<=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.
    
12. 
    Найти сумму целых чисел применив функцию Fix((Sin(x)+Cos(x))*40), 1<= x <=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока ложь) и с параметром. При решении задания применить оператор выбора варианта Select Case.