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

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

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

Text1.Text = Text1.Text & k & ")
MultiLine     =   -1  'True
ScrollBars    =   2  'Vertical
AutoRedraw  = true

Text1 = Text1 & k & ")" & s * (a ^ n) - (1 - a ^ n) / (1 - a) & vbCrLf
' Он так прилепил, всем поровну - единица
1 ) 197
1 ) 194,03
1 ) 191,0897
1 ) 188,178803
1 ) 185,29701497
1 ) 182,4440448203

Option Explicit
 
Private Sub Command1_Click()
Dim s As Integer, a As Double, n As Integer, k As Integer
s = 200
a = 0.99
k = k + 1
Text1.Text = ""
For n = 1 To 100
Text1 = Text1 & k & " ) " & s * (a ^ n) - (1 - a ^ n) / (1 - a) & vbCrLf
Next
 
End Sub

Option Explicit
Private Sub Command1_Click()
Dim s As Double, n As Integer
'Добрые люди, помогите пожалуйста с задачей.
'Нужно реализовать с помощью цикла.
'Вычислить: sqrt(3+sqrt(6+...+sqrt(3*(n-1)+sqrt(3*n))...)) 
'https://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 & s & vbCrLf
Next
'Ответ: сумма для первых ста членов  =  2,46992571679751
MsgBox ("Сумма = " & s) 'Вывод результата в стандартное окно
End Sub
 
 
Option Explicit
Private Sub Command1_Click()
Dim s As Double, n As Long
'Сумма ряда Дирихле, Берков стр. 32
s = 0 'Обнуление переменной, в которой накапливается сумма
For n = 1 To 100 'Цикл выполняется сто раз
  s = s + 1 / n ^ 2 'Накопление суммы в переменной s
   Next n 'Увеличение параметра цикла на единицу
   MsgBox ("Сумма = " & s) 'Вывод результата в стандартное окно
'Сумма : 1,63498390018489
End Sub
 
 
Option Explicit
Private Sub Command1_Click()
Dim s As Double, n As Long
'Сумма ряда числовой последовательности, Берков стр. 84
s = 0 'Обнулить переменную, в которой накапливается сумма
For n = 1 To 100 'Цикл выполняется сто раз
  s = s + (n + 1)/(n^3 + n^2 + 6)  'Накопить в переменной s очереное n-ое слагаемое
   Next n 'Увеличение параметра цикла на единицу
   Debug.Print "Сумма = "; format(s,"#0.0000") 'Вывести переменую s. После запятой выводить четыре знака.
 'Ответ: Сумма = 0.7785  
End Sub
 
 
Option Explicit
Private Sub Command1_Click()
Dim x As Double, s As Double, a As Double, n As Long
'Сумма членов бесконечного ряда: x^n/n! — для любого значения аргумента (x), Берков стр. 35
x = InputBox("Введите аргумент функции")
a = x: s = a: n = 1
Do Until Abs(a) < 0.00000001 'До тех пор пока условие = "Ложь"
 n = n + 1: a = a * x/n: s = s + a
Loop
MsgBox("Значение функции = " + Str(s))
End Sub
 
 
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, n As Double, s As Double
'Разработайте программу для решения следующей задачи: «Сто гномов едят одно яблоко весом в 200 грамм. 
'Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка»
'https://www.cyberforum.ru/visual-basic/thread1737316.html
n = 200
s = 0 'обнуление накопителя
Text1.Text = ""
For i = 1 To 100
    s = (n * 0.01 + 1) 'один и тот же цикл повторяется 100 раз
    n = n - s  'остаток яблока после 100 гномов
Text1 = Text1 & i & " ) " & n & vbCrLf
Next i
MsgBox ("Вес огрызка яблока  =  " + Str(n))
'Ответ: 9,80970238196882
End Sub
 
 
Option Explicit
Private Sub Command1_Click()
Dim s As Double, i As Long, j As Long
'Двухмерная сумма: (i + j)/(i^2 + j^3) — Берков стр. 33
s = 0
For i = 1 To 80
For j = 1 To 50
   s = s + (i + j)/(i^2 + j^3) 
Next i, j  'Если оба цикла заканчиваются одновременно
NsgBox ("Сумма = " + Str(s))
'Возможно ошибка в книге! Не знаю как быть?
'Microsoft Visual Basik — Compile error: Invalid Next variable reference
End Sub

Option Explicit
Private Sub Command1_Click()
Dim s As Double, n As Long
'Добрые люди, помогите пожалуйста с задачей.
'Нужно реализовать с помощью цикла.
'Вычислить: sqrt(3+sqrt(6+...+sqrt(3*(n-1)+sqrt(3*n))...))
'https://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

Option Explicit
Private Sub Command1_Click()
Dim s As Double, i As Long, j As Long
'Двухмерная сумма: (i + j)/(i^2 + j^3) — Берков стр. 33
s = 0
For i = 1 To 80
For j = 1 To 50
   s = s + (i + j) / (i ^ 2 + j ^ 3)
Next i, j
 
'Если оба цикла заканчиваются одновременно
 
MsgBox ("Сумма = " + Str(s))
'Возможно ошибка в книге! Не знаю как быть?
'Microsoft Visual Basik - Compile error: Invalid Next variable reference
End Sub