Детская задача на геометрическую прогрессию для VB6

Формулировка задачи:

Здравствуйте!

Есть детская задача:

"Сто гномов едят одно яблоко весом в 200 грамм. Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка".

Прошу помощи с кодом

, хочу: чтобы программа выводила списком результаты вычислений "откусывание яблока гномами" списком от n = 1 до n = 100. Например: d(1) = 197,00; d(2) = 194,03; … d(100) = 9,81.

Option Explicit
 
Private Sub Command1_Click()
Dim s As Integer, a As Double, n As Integer
s = 200
a = 0.99
n = 100
 
Result = s * (a ^ n) - (1 - a ^ n) / (1 - a)
End Sub

Ошибка в коде выше. Microsoft Visual Basic пишет в табличке:

Compile error: Variable not defined

. Вчера просматривал Интернет более шести часов. Не смог найти толковых книг: ни "Практикум по Visual Basic 6.0", ни "Visual Basic 6.0: примеры кода по геометрической прогрессии".

Обидно

, кажется — вся учебная литература по Visual Basic 6.0 написана российскими недоумками, которые только воруют друг у друга исходные материалы и талдычат про теорию. Никто не написал ни одной книги похожей на ту, что ниже.

Павловская Т. А., Щупак Ю. А. C/C++. Структурное и объектно-ориентированное программирование: Практи- кум. — СПб.: Питер, 2011. — 352 с.: ил. — (Серия «Учебное пособие»).

Просьба

: если кому-то известна хорошая книга по Visual Basic 6.0, то прошу сообщить название и автора. Ерунду, типа "Готовых алгоритмов" от Рода Стивенса можете не предлагать.

Тоскливо

Решение задачи: «Детская задача на геометрическую прогрессию для VB6»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub Command1_Click()
Dim s As Double, n As Long
'Добрые люди, помогите пожалуйста с задачей.
'Нужно реализовать с помощью цикла.
'Вычислить: sqrt(3+sqrt(6+...+sqrt(3*(n-1)+sqrt(3*n))...))
'http://www.cyberforum.ru/visual-basic/thread1739892.html
n = 100
s = 0
Text1.Text = ""
For n = n To 1 Step -1
s = Sqr(3 * n + s)
Text1 = Text1 & (101 - n) & " ) " & s & vbCrLf
'Как истолковать все результаты  ТекстБокса потом напишу.
Next
MsgBox ("Сумма = " & s) 'Вывод результата в стандартное окно
'Ответ: сумма для первых ста членов  =  2,46992571679751
End Sub
                        