Функция: нахождение площади трапеции по её основаниям и высоте - VB

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

составить функцию нахождения площади трапеции по её основаниям и высоте. с помощью данной фцнкции вычислить площадь для трёх трапеций

Решение задачи: «Функция: нахождение площади трапеции по её основаниям и высоте»

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

                            Module Module1
    Sub Main()
        Dim s(0 To 2) As Double
        Dim a, b, h As Integer
        For i = 0 To 2 Step 1
            a = InputBox("Введите 1-ое основание " & i + 1 & " трапеции")
            b = InputBox("Введите 2-е основание " & i + 1 & " трапеции")
            h = InputBox("Введите высоту " & i + 1 & " трапеции")
            s(i) = Area(a, b, h)
        Next
        MsgBox("Площадь первой трапеции равна " & s(0) & "; площадь второй трапеции равна " & s(1) & "; площадь третьей трапеции равна " & s(2) & ".")
    End Sub
    Public Function Area(ByVal a As Integer, ByVal b As Integer, ByVal h As Integer)
        Dim x As Double
        x = (a + b) * h * 0.5
        Return x
    End Function
End Module
                        