Запрограммировать функцию(с блок схемой) - VB

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

Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также количество значений функции, попавших в отрезок [1;2]. Z=(Ln(y^(1/2)+1))/x^2, где y=2, 2<=x<=8,h=2 Заранее благодарен.

Решение задачи: «Запрограммировать функцию(с блок схемой)»

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

                            ...
y = 2 'Г*ГҐ Г§Г*Г*Гѕ, Г§Г*Г·ГҐГ¬ ГўГ®Г®ГЎГ№ГҐ
Sum = 0
n = 0
For x = 2 To 8 Step 2
Z = (Log((y ^ (1 / 2) + 1))) / (x ^ 2)
Sum = Sum + Z
If Z >= 1 And Z <= 2 Then
n = n + 1
End If
Next
 
Print "Г‘ГіГ¬Г¬Г* Г§Г*Г*Г·ГҐГ*ГЁГ©", Sum
Print "ГЉГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г§Г*Г*Г·ГҐГ*ГЁГ©", n
...
                        