Visual Basic; цикл;ошибка в коде

[Lola_]

Задание:посчитать сумму и количество членов прогрессии

S=Σ(нижний индекс возле сигмы k=1, верхний бесконечность)Cos(x ^ k) / k ^ 2
цикл останавливается, когда по модулю |Cos(x ^ k) / k ^ 2| <= epsilon, где еpsilon=10 ^-4

Код :
Private Sub Command1_Click()

Dim k As Integer, f As Integer, eps As Integer, x As Integer
Dim s As Single
eps = Val(Text1)
x = Val(Text4)
s = 0
k = 1
Do While (Abs(Cos(x ^ k) / k ^ 2) > eps)
s = s + Cos(x ^ k) / k ^ 2
k = k + 1
Loop
f = k - 1
Text2 = s
Text3 = f
End Sub

строка в которой ошибка:Do While (Abs(Cos(x ^ k) / k ^ 2) > eps)

[Sciv]

А текст ошибки какой?

[gaw4]

Do While Abs(Cos(x ^ k) / k ^ 2) > eps

[DiemonStar]

Давайте для начала я вам покажу явную ошибку:

eps As Integer

и при этом

еpsilon=10 ^-4

т.е. значение переменной изначально не соответствует условию.

и вообще, использование степенной функции при такой точности само по себе источник ошибок: при большом значении x для достаточно высокого значения степени возникает ошибка при вычислении косинуса.

[Lola_]

DiemonStar, примного Вас благодарю! Количество членов уже должно быть правдой,

("х" уменьшила по вашему совету, потому как я его ввожу сама по условию)