Найти значения функции. Массивы - VB

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

Для одномерных одинаковой длины массивов X и Z и коэффициентов A, B, C, D найти значения функции по формуле: Y_k=(A*X_k+B)/(C*Z_k+D) .

Решение задачи: «Найти значения функции. Массивы»

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

                            Private Sub Form_Load()
'ГђГ*Г§Г¬ГҐГ° Г¬Г*Г±Г±ГЁГўГ*
Const N = 5
Me.AutoRedraw = True
List1.AddItem "ГЊГ*Г±Г±ГЁГў Г•"
List2.AddItem "ГЊГ*Г±Г±ГЁГў Z"
List3.AddItem "ГЊГ*Г±Г±ГЁГў Y"
 
Dim x(N), z(N), y(N) As Single
Dim a, b, c, d As Single
Dim i As Integer
 
For i = 0 To N - 1
x(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i + 1) + " ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* Г•")
Next
For i = 0 To N - 1
z(i) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " + Str(i + 1) + " ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ* Z")
Next
 
a = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ ГЂ")
b = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ B")
c = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ C")
d = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®ГЅГґГґГЁГ¶ГЁГҐГ*ГІ D")
 
 
For i = 0 To N - 1
y(i) = (a * x(i) + b) / (c * z(i) + d)
List1.AddItem x(i)
List2.AddItem z(i)
List3.AddItem Format(y(i), "0.00")
Next
 
End Sub
                        