Добрый вечер. Помогите пожалуйста найти ощибку в программе. Само задание находится в файле ЛР-4-06. Вот мой вариант программы:
Код Visual Basic .NET


Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
Function vvod(ByVal t As TextBox) As Double
Return Val(t.Text)
End Function
Sub vivod(ByVal z As Double, ByVal t As TextBox)
t.Text = CStr(z)
End Sub
Sub vivodlist(ByVal z As Double, ByVal LB As ListBox)
LB.Items.Add(CStr(z))
End Sub
Sub vivodint(ByVal z As Integer, ByVal LB As ListBox)
LB.Items.Add(CStr(z))
End Sub
Sub pos(ByVal x As Double, ByVal e As Double, ByRef s As Double)
Dim n As Integer
Dim a As Double
n = 0 : s = 0 : x = a
Do While Abs(a) > e
vivodint(n, ListBox1)
vivodlist(a, ListBox2)
a = 1/(2*n+1)*x^(2*n+1)
s = s + a
n = n + 1
Loop
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim EE, x, s As Double
EE = vvod(TextBox1)
x = vvod(TextBox2)
pos(x, EE, s)
vivod(s, TextBox3)
End Sub
End Class


Почему то при компилировании программа зависает и ничего не хочет делать. Помогите найти ошибку.

Модератор: Тема перенесена из форума "Visual Basic".

bazile,

ну да. Это я понимаю. Только как мне исправить этот цикл, что бы он был не бесконечным?