Программа вычисления произведения членов последовательности с заданной точностью e - VB

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

Сама функция f = 1 -( 4 / (2k + 1) ^ 3 ) точность e = 0.00001 Примечание:Используйте в программе вычисления суммы (произведения) членов последовательности с заданной точностью e для реализации цикла конструкцию Do ... Loop с постусловием (Do Конструкции Loop While Условие), при этом в программе вводить и использовать количество членов последовательности не нужно. Вот что у меня получилось...)

Private Sub Command1_Click()
Picture1.Cls
i = 1
Do
   f = f * (1 - 4 / (2 * k + 1) ^ 3)
   k = k + 1
Loop Until (1 - 4 / (2 * k + 1) ^ 3) < 0.00001
Picture1.Print "f="; Format(f, "##.###")
Picture1.Print "k="; k
End Sub

Когда запускаю, visual basic виснет.

Решение задачи: «Программа вычисления произведения членов последовательности с заданной точностью e»

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

                            Private Sub Command1_Click()
    Picture1.Cls
    k = 1
    e = 0.00001
    f = 1
    Do
        f_old = f
        f = f_old * (1 - 4 / (2 * k + 1) ^ 3)
        k = k + 1
    Loop While Abs(f - f_old) > e
    Picture1.Print "f="; Format(f, "##.###")
    Picture1.Print "k="; k
End Sub
                        