Найти сумму ряда - Visual Basic .NET (64552)

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

Цикл c использованием конструкции

Do While – Loop, или Do – Loop, или While – End While.

Найти сумму ряда. Вычисления закончить, когда очередной член ряда станет меньше заданного значения погрешности (=0.0001). При использовании бесконечного цикла (Do - Loop) для выхода из него необходимо использовать оператор Exit Do. Вывести значение S и количество шагов цикла n. _______________________________

S=(1+sin0.1)(1+sin0.2)...(1+sin10)

_______________________________ Пытался..

                    Листинг программы
                
 
                            
                        
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        If Trim(TextBox3.Text) = "" Or Trim(TextBox3.Text) = "0" _
        Or Trim(TextBox3.Text) = "" Or Trim(TextBox3.Text) = "0" Then
            MessageBox.Show("Введите корректные данные!", "КОНТРОЛЬ ДАННЫХ", _
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Else
            x = Val(TextBox4.Text)
            Try
                Eps = Val(TextBox3.Text)
            Catch ex As Exception
                MessageBox.Show("Неверно задана погрешность!", "КОНТРОЛЬ ДАННЫХ", _
                          MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            If Eps = 0 Then
                MessageBox.Show("Неверно задана погрешность!" + vbCrLf + _
                                "Разделитель -> точка!", "КОНТРОЛЬ ДАННЫХ", _
                                         MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                TextBox2.Text = "Eps = " + CStr(Eps) + ";  x = " + CStr(x) + vbCrLf
                TextBox2.Text += "n      s" + vbCrLf
                TextBox2.Text += "--------------" + vbCrLf
 
                fun = 1000000
                a = 0
                Do While Abs(fun) >= Eps
                    fac = 1
                    a = a + 1
                    Try
                        For i = 1 To a
                            fac = fac * i
                        Next i
                    Catch ex As Exception
                        MessageBox.Show("Факториал: очень большое число!")
                        GoTo mmm
                    End Try
                    'fun = (1 + sin()) / (fac)
                    's = s + fun
                    TextBox2.Text += CStr(a) + ".  " + CStr(Round(s, 5)) + vbCrLf
 
                Loop
            End If
        End If
mmm:
    End Sub

Решение задачи: «Найти сумму ряда»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Imports System.Math
Public Class Form1
    Dim P As Double = 1, L As Integer = 0
    Dim I As Double = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Tmp As Double
        Do
            I += 0.1
            Tmp = 1 + Sin(I)
            P *= Tmp
            ListBox1.Items.Add(Tmp)
            L += 1
            If Tmp < 0.0001 Then
                Me.Text = Tmp & "< 0.0001, Exit program"
                Exit Do
            End If
        Loop
        ListBox1.Items.Add("P=" & P & " - Loops: " & L)
    End Sub
End Class