Задача на итерационный цикл

[Ruslan_M]

Это VBA
Нужно найти сумму бесконечного ряда с точностью до E

Sub variant4()
Dim n As Double, A As Double, E As Double, S As Double
E = InputBox("Введите E")
n = 1
A = (2 * n - 1) / 2 ^ n
Do While A >= E
S = S + A
n = n + 1
A = (2 * n - 1) / 2 ^ n
Loop
MsgBox ("S=" & S)
End Sub

Что не так?

[Abstraction]

Нужно найти сумму бесконечного ряда с точностью до E

Do While A >= E

Одно не соответствует другому.
^, насколько помню, в Паскале отнюдь не операция возведения в степень.

Та же задача, C#.

[Ruslan_M]

Извиняюсь, сразу не уточнил, это VBA

[Abstraction]

Сообщение от Ruslan_M

Извиняюсь, сразу не уточнил, это VBA

В VBA оператор ^ - тем более не возведение в степень.