Протабулировать функцию - VB (62964)

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

'Задание: 'Создать блок-схему та программу табулирования функции у=f(х) на интервале [хнач хкон] з шагом h. 'y = e^sin(x)+ 4 кор (a+x)/(ln^3 * bx) 'Необходимо определить: 'среднее арифметичное y>5 Буду очень благодарным за подсказки, или где можна посмотреть что-нибудь похожее...

Решение задачи: «Протабулировать функцию»

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

                            Private Sub Command1_Click()
Dim x As Single, y As Single
Dim Sum, count, answer
Const xN = 5.5
Const xK = 10.5
Const h = 0.36
Const a = 17.3
Const b = 0.36
answer = ""
For x = xN To xK Step h
y = (Exp(Sin(x)) + (a + x) ^ (1 / 4)) / (Log(b * x) ^ 3)
answer = answer & x & Space(10) & y & Chr(13)
If y > 5 Then count = count + 1: Sum = Sum + y
Next x
If count = 0 Then MsgBox "Net >5" Else Sum = Sum / count
MsgBox answer & Chr(13) & Chr(13) & Sum
End Sub
                        