Вычислить произведение элементов ряда (1+1/n) - VB
Формулировка задачи:
Очень срочно надо, помогите пллз, очень плохо в програмировании разбираюсь....
дано натуральное число n, вычислить (1+1/1)*(1+1/2)...(1+1/n) заранеее спасибо!
Решение задачи: «Вычислить произведение элементов ряда (1+1/n)»
textual
Листинг программы
Private Sub Command1_Click()
Dim N As Integer, i As Integer
Dim Y As Single
N = Val(InputBox("Вводим n", , 5))
If N < 1 Then
MsgBox "N<1 !"
Exit Sub
End If
Y = 2
For i = 2 To N
Y = Y * (1 + 1 / i)
Next i
MsgBox "для n=" & N & " " & "Y = " & Y
End Sub