Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim base1 As Double = 4.0
Dim base2 As Double = 7.0
Dim height As Double = 5.0
Dim area As Double = (base1 + base2) / 2.0 * height
Console.Write("Area of Trapezium = " & area)
End Sub
End Class
' run:
'
' Area of Trapezium = 27.5
'