Contact: aviboots(AT)netvision.net.il
40,026 questions
51,982 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim apothem As Integer = 3 Dim side As Integer = 5 Dim area As Single = 5.0f * ((side * apothem) / 2.0f) Console.WriteLine("Area = " + CStr(area)) End Sub End Module ' run: ' ' Area = 37.5 '