Как реализовать цикл - VB

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

Помогите пожайлуста дополнить данный код, задание во вложении

Private Sub CommandButton1_Click()
Dim S As Double
S = 0
For i = 1 To 50 Step 1
S = S + Sqr(i)
TextBox1.Text = S
Next i
End Sub

Решение задачи: «Как реализовать цикл»

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

                            Private Sub CommandButton1_Click()
Dim S As Double, i As Long
S = 0
For i = 50 To 1 Step -1
  S = Sqr(i + S)
  TextBox1.Text = S
Next i
End Sub
                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы