Пожалуйста!!!!Помогите исправить программу на Visual Basic

[Kate777]

у меня завтра сдача практики по Visual Basic, пожалуйста помогите вставить недостающие операторы в программу!

Интегрирование методом трапеций с оценкой точности.
Считается интеграл функции F на отрезке [a,b].

function IntegralTrap(a:Real;b:Real;Epsilon:real):real;



Public Function IntegralTrapezium(ByRef a As Double, _
         ByRef b As Double, _
         ByRef Epsilon As Double) As Double
    Dim Result As Double
    Dim i As Long
    Dim n As Long
    Dim h As Double
    Dim s1 As Double
    Dim s2 As Double

    n = 1#
    h = b - a
    s2 = h * (F(a) + F(b)) / 2#
    Do
        s1 = s2
        s2 = 0#
        i = 1#
        Do
            s2 = s2 + F(a - h / 2# + h * i)
            i = i + 1#
        Loop Until Not i <= n
        s2 = s1 / 2# + s2 * h / 2#
        n = 2# * n
        h = h / 2#
    Loop Until Not Abs(s2 - s1) > 3# * Epsilon
    Result = s2

    IntegralTrapezium = Result
End Function

в этом тексте должны быть кнопки Command и что то ещё, а я не успеваю разобраться что и где именно((( пожалуйста, помогите!!!!!!!!!!

[EducatedFool]

в этом тексте должны быть кнопки Command и что то ещё

В этом "тексте" ничего такого быть не должно.
Код функции полностью работоспособный

Вставьте в проект следующий код:

Public Function IntegralTrapezium(ByRef a As Double, ByRef b As Double, _
                                  ByRef Epsilon As Double) As Double
    Dim i As Long, n As Long, h As Double, s1 As Double, s2 As Double

    n = 1#
    h = b - a
    s2 = h * (F(a) + F(b)) / 2#
    Do
        s1 = s2
        s2 = 0#
        i = 1#
        Do
            s2 = s2 + F(a - h / 2# + h * i)
            i = i + 1#
        Loop Until Not i <= n
        s2 = s1 / 2# + s2 * h / 2#
        n = 2# * n
        h = h / 2#
    Loop Until Not Abs(s2 - s1) > 3# * Epsilon

    IntegralTrapezium = s2
End Function

Function F(x) ' пример функции F
    F = x + 2
End Function

Sub Main()
    MsgBox IntegralTrapezium(1, 3, 0.1)
End Sub

При запуске проекта процедура Main выведет верный результат интегрирования функции F(x)=x+2 на промежутке от 1 до 3

[Kate777]

а какие объекты должны быть на главной форме?

[EducatedFool]

Вполне можно обойтись вообще без формы. Зачем она?

При помощи двух InputBox-ов запрашиваешь значения А и В (надеюсь, функцию F(x) вводить вручную не трубуется), и программа выдаёт в качестве ответа Msgbox с результатом интегрирования.