Imports System

Public Module Module1

    Public Sub Main()

        ' Calculate area of trapezium

        Dim a, b, h As Integer

        Dim Area As Decimal

        Console.WriteLine("Enter side a")

        a = Console.ReadLine()

        Console.WriteLine("Enter side b")

        b = Console.ReadLine()

        Console.WriteLine("Enter height h")

        h = Console.ReadLine()

        Area = 0.5 * (a+b) * h

        Console.WriteLine("Area of Trapezium = " & Area)

    End Sub

End Module

​

'   PSEUDOCODE

​

'   INTEGER: a, b, h

'   REAL: Area

​

'   OUTPUT "Enter side a

'   INPUT a

​

'   OUTPUT "Enter side b

'   INPUT b

​

'   OUTPUT "Enter side h

'   INPUT h

​

'   Area <-- 0.5 * (a+b) * h

​

'   OUTPUT "Area of trapezium = ", Area

​

​

​