Прошу, помогите у меня никак не получается сделать в визуал бейсик программу как по...

Question

Прошу, помогите
у меня никак не получается сделать в визуал бейсик программу как по алгоритму, что-то не так.
вот код:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, h As Integer
Text1.Text = a
Text2.Text = b
Text3.Text = h
s = 0
For x = a + h To b - 1 Step h
s = s + f
Next x
S1 = s + a * h
S2 = s + b * h
S3 = S1 + S2 / 2
f = x * x / x * x + 4
Text4.Text = S3
End Sub

---

---

Answer 1

Function F(x)
    F = x * x / Math.sqrt(x * x + 4)
End Function

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, h As Integer
    a = Text1.Text
    b = Text2.Text
    h = Text3.Text
    s = 0

    For x = a + h To b - 1 Step h
        s = s + f(x)
    Next x

    S1 = s + f(a) * h
    S2 = s + f(b) * h
    Stp = S1 + S2 / 2
    Text4.Text = Stp
End Sub

не до конца поняла, что за задание и что делает этот алгоритм, но так наверное будет ближе к тому что нужно