Нахождение произведение n членов ряда - VB
Формулировка задачи:
Дано натуральное число n. Вычислить произведение n членов ряда:(2/3)*
(4/5)*(6/7)*...*((2n)/(2n+1)). Помогите пожалуйста решить.
Решение задачи: «Нахождение произведение n членов ряда»
textual
Листинг программы
Option Explicit
'DefStr J, S: DefLng F, I, L, N: DefBool B
' © FelixMacintosh
Private Sub Form_Load()
Dim p#, n% ', f
n = InputBox("Ââåäèòå ÷èñëî N", , 3)
p = 1
If IsNumeric(n) Then
For n = 1 To n 'Step 2
p = p * 2 * n / (2 * n + 1)
Next
End If
MsgBox "ðåçóëüòГ*ГІ = " & p
End
End Sub