Contact: aviboots(AT)netvision.net.il
43,700 questions
57,013 answers
573 users
Module Module1 Sub Main() Dim w As Integer = 18, h As Integer = 10 Console.WriteLine("perimeter = {0}", (w + h) * 2) Console.WriteLine("area = {0}", w * h) End Sub End Module 'run: ' 'perimeter = 56 'area = 180