Вычислить площадь) - VB

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

Пожалуйста помогите с решением задачки в Visual Basic -Вычислить приближенно площадь фигуры, ограниченной снизу прямой У = 0, сверху кривой У = Х , слева прямой Х = А, справа прямой Х = В , представляя кривую У в виде ступенчатой линии и суммируя площади прямоугольников с основанием H и высотой равной значению функции У на левой границе основания (Изобразить графически)

Решение задачи: «Вычислить площадь)»

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

                            Private Sub Form_Load()
    Dim s As Double, A As Double, B As Double, H As Double
    Dim i As Double
    A = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЂ")
    B = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ B")
    H = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ H") 'ГІГЁГЇГ* 0.01
    s = 0
    For i = A To B - H Step H
        s = s + i * H
    Next i
    MsgBox CStr(s)
    End
End Sub
                        

Оцени полезность:

12 голосов , оценка 3.75 из 5

Похожие ответы