Module Module1
Sub Main()
Dim _base As Integer = 12, high As Integer = 13, a As Integer = 6, c As Integer = 8
Console.WriteLine("area = {0:F2}", (_base * high) / 2)
Console.WriteLine("perimeter = {0}", _base + a + c)
End Sub
End Module
'run:
'
'area = 78.00
'perimeter = 26