Imports System
Public Module Module1
Public Sub Main()
Dim length As Integer = 29
Dim width As Integer = 17
Dim rectangle_perimeter As Double = (length + width) * 2.0
Console.Write("Rectangle Perimeter = " + CStr(rectangle_perimeter))
End Sub
End Module
' run:
'
' Rectangle Perimeter = 92
'