Imports System
Public Class exercise67
Public Shared Sub Main()
Dim width As Double
Dim height As Double
Dim perimeter, area, diagonal As Double
Do
Console.Write("Enter the desired width: ")
width = Convert.ToDouble(Console.ReadLine())
If width <> 0 Then
Console.Write("Enter the desired height: ")
height = Convert.ToDouble(Console.ReadLine())
perimeter = width * 2 + height * 2
Console.WriteLine("Perimeter: {0}", perimeter)
area = width * height
Console.WriteLine("Area: {0} ", area)
diagonal = Math.Sqrt((width * width) + (height * height))
Console.WriteLine("Diagonal: {0} ", diagonal)
End If
Loop While width <> 0
End Sub
End Class