Программирование циклов, управляемых условием.

Imports System.Math
Public Class Class1
    Private ek, sk, u, p As Single
    Private n As Integer
    Private i As Integer
    Public ReadOnly Property e() As Single
        Get
            Return ek
        End Get
    End Property
    Public ReadOnly Property s() As Single
        Get
            Return sk
        End Get
    End Property
    Public Sub rr(ByRef s As Single)
        Dim u, p As Double
        Dim i As Integer = 1
        Dim n As Integer = 0
        ek = CSng(InputBox("Введите точность е"))
        p = 1
        Do While Math.Abs(p - u) > e
            p = u
            u = Pow(3 * i, (1 / (2 * i)))
            sk += CSng(u)
            i += 3
        Loop
    End Sub
End Class
Public Class Form1
    Dim MyRow As Class1 = New Class1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MyRow.rr(MyRow.s)
        TextBox1.Text = CStr(MyRow.e)
        TextBox3.Text = CStr(MyRow.s)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class