Нужен программный код для Visual Basic

8. Найти произведение чисел, применив функцию Cos(x), 1<=x<=10, используя циклы: с предусловием (пока истина), с постусловием (до тех пор, пока истина) и с параметром. При решении задания применить оператор выбора варианта Select Case.