Вычислить сумму, используя циклы - VB
Формулировка задачи:
Вычислить: 1+2+4+8+…+210
Решение задачи: «Вычислить сумму, используя циклы»
textual
Листинг программы
'найти сумму 1+ A + A2 + A3 + ... + AN
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
Dim A As Single, n As Integer
A = InputBox("A = ", , 2): n = InputBox("N = ", , 10)
For i = 0 To n
sum = sum + A ^ i
Next i
MsgBox sum, vbInformation
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д