Вычисление суммы (произведения) ряда - VB

Формулировка задачи:

Помогите пожалуйста с заданием, желательно в VB6: По заданной формуле члена последовательности с номером k составить две программы: -программу вычисления суммы (произведения) первых n членов последовательности (k = 1, 2, 3.., n); (см. алгоритм вычисления суммы) -программу вычисления суммы (произведения) членов последовательности с заданной точностью e; программа должна выводить в качестве результата вычисленную сумму (произведение) и количество членов последовательности, участвующих в суммировании (вычислении произведения) (см. алгоритм вычисления суммы с заданной точкностью). Примечание: а) используйте в программе вычисления суммы (произведения) членов последовательности с заданной точностью e для реализации цикла конструкцию Do ... Loop с постусловием (Do Конструкции Loop While Условие), при этом в программе вводить и использовать количество членов последовательности не нужно. б) результаты вычислений суммы (произведения) первых n членов последовательности и суммы (произведения) членов последовательности с заданной точностью e должны быть близкими по значению.

Решение задачи: «Вычисление суммы (произведения) ряда»

textual
                            Листинг программы 
                        

                            p = 1
k = 2
 
Do
   p = p * (1 - 4 / (2 * k + 1) ^ 3)
   k  = k + 1
Loop Until k > 31
                        