тема Циклические процессы VBA в MS Excel

[TanyAleksandrovna]

Задание:Разработать пользовательский интерфейс и составить программу в редакторе VB MS Excel.
Найти сумму ряда с точностью ε = 10-4:
формула.JPG

Написала текст программы, но в ней допустила ошибки, т.к. она не работает=( При условии Do While Abs(a) > eps программа доходит до цикла и сразу делает выход из неё,а при условии Do While Abs(a) < eps считает,но после выдает ошибку..помогите пожалуйста разобраться в чем именно проблема!?

Private Sub CommandButton1_Click()
Dim a As Single, s As Single, eps As Single
Dim n As Integer, f As Integer, x As Integer
eps = 0.0001
x = 1 / 2
n = 1
f = n
s = Sin(x)
a = ((-1) ^ (n + 1)) * ((x ^ (2 * n - 1))) / (f * (2 * n - 1))
s = a
Do While Abs(a) < eps
n = n + 1
f = f * n
a = ((-1) ^ (n + 1)) * ((x ^ (2 * n - 1))) / (f * (2 * n - 1))
s = s + a
Loop
TextBox1.Text = Str(s)
End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = " "
End Sub

Private Sub Label1_Click()

End Sub

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[doober]

В правильность формулы не вникал
Если я не знаю порядок значений.то объявляю всегда тип как Double
Только X=3.14159265358979/6
А не 0,5

Private Sub CommandButton1_Click()
Dim a As Double, s As Double, eps As Single
Dim n As Double, f As Double, x As Double
 eps = 0.0001
 x = 1 / 2
 n = 1
 f = n
 s = Sin(x)
 a = ((-1) ^ (n + 1)) * ((x ^ (2 * n - 1))) / (f * (2 * n - 1))
 s = a
 Do While Abs(a) > eps
 n = n + 1
 f = f * n
 a = ((-1) ^ (n + 1)) * ((x ^ (2 * n - 1))) / (f * (2 * n - 1))
 s = s + a
 Loop
 TextBox1.Text = Str(s)
 End Sub

[TanyAleksandrovna]

Большое спасибо! Программа работает!=)
Только странно почему то выдает ответ,без 0 перед запятой. Это считается ошибкой?
ответ.JPG

[doober]

Если так,то будет отображаться с нулем и запятой

TextBox1.Text = s

[TanyAleksandrovna]

Спасибо! =)