[VB] Вычислить произведение ряда N чисел

[Raikerian]

Вычислить произведение ряда N чисел
R = 5/9 * 10/16 * 17/25 * 26/36 * ...
Мой главный вопрос: правильно ли устроена программа (правильно ли заданы циклы, задана и использована переменная n)?

Option Explicit
Dim n, S1, S2, h, h2, i, i2 As Integer
Private Sub Command1_Click()
n = Val(InputBox("Ââåäèòå n"))
S1 = 1
h = 5
i = 5
Do
S1 = S1 * i
i = i + h
h = h + 2
Loop While n >= i
Print S1
S2 = 1
i2 = 9
h2 = 7
Do
S2 = S2 * i2
i2 = i2 + h2
h2 = h2 + 2
Loop While i >= i2
Print S2
Print " R = "; S1 / S2
End Sub

[was3110]

что, чужой код? Действительно, запутано.
А почему не For цикл? Надо в одном цикле считать и S1, и S2.
А то с такими условиями (while) любого преподавателя запутаете....

[Raikerian]

Код мой. Но я сомневался с задаванием переменной. Задание было сделать программу с тремя циклами: while, until и for. Если в while все правильно тогда я и в остальном не сомневаюсь =)

[was3110]

А по шагам (клавишей F8) прогнать программу не судьба? Ведь все значения переменных сразу видны на каждом шаге...

[Raikerian]

Все разобрался! N колво, а значит сколько дробей этих должно быть с прогрессией

Option Explicit
Dim N, h, h2, i, i2, d As Integer, R As Single
Private Sub Command1_Click() 
Me.Cls
N = Val(InputBox("Введите N"))
R = 1
i = 5  
i2 = 9 
h = 5  
h2 = 7 
d = 1 
Do 
R = R * i / i2
i = i + h      
i2 = i2 + h2 
h = h + 2   
h2 = h2 + 2 
d = d + 1 
Loop While N >= d
Print " N ="; N
Print " R ="; R
End Sub

А с for как

R1 = 1
h = 5
i = 5
d = 1
Do
R1 = R1 * i
i = i + h
h = h + 2
d = d + 1
Loop While N >= d

переделать? Можно ли тут вообще с For сделать?
For i = 5 to незнаю до чего Step h
R1 = R1 * i
i = i + h
h = h + 2
Next i
Что упустил как исправить в For?

[was3110]

N колво, а значит сколько дробей этих

поэтому

For j=1 to N
здесь с   i, h, R1 что хочешь делай
Next j