Imports System
Public Class Test
Private length As Double
Private width As Double
'Public methods
Public Sub AcceptDetails()
length = 4.5
width = 3.5
End Sub
Public Function GetArea() As Double
GetArea = length * width
End Function
Public Sub Display()
Console.WriteLine("Length: {0}", length)
Console.WriteLine("Width: {0}", width)
Console.WriteLine("Area: {0}", GetArea())
End Sub
Shared Sub Main()
Dim r As New Rectangle()
r.Acceptdetails()
r.Display()
Console.ReadLine()
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQcml2YXRlIGxlbmd0aCBBcyBEb3VibGUKICAgIFByaXZhdGUgd2lkdGggQXMgRG91YmxlCgogICAgJ1B1YmxpYyBtZXRob2RzCiAgICBQdWJsaWMgU3ViIEFjY2VwdERldGFpbHMoKQogICAgICAgIGxlbmd0aCA9IDQuNQogICAgICAgIHdpZHRoID0gMy41CiAgICBFbmQgU3ViCgogICAgUHVibGljIEZ1bmN0aW9uIEdldEFyZWEoKSBBcyBEb3VibGUKICAgICAgICBHZXRBcmVhID0gbGVuZ3RoICogd2lkdGgKICAgIEVuZCBGdW5jdGlvbgogICAgUHVibGljIFN1YiBEaXNwbGF5KCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiTGVuZ3RoOiB7MH0iLCBsZW5ndGgpCiAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIldpZHRoOiB7MH0iLCB3aWR0aCkKICAgICAgICBDb25zb2xlLldyaXRlTGluZSgiQXJlYTogezB9IiwgR2V0QXJlYSgpKQoKICAgIEVuZCBTdWIKCiAgICBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgIERpbSByIEFzIE5ldyBSZWN0YW5nbGUoKQogICAgICAgIHIuQWNjZXB0ZGV0YWlscygpCiAgICAgICAgci5EaXNwbGF5KCkKICAgICAgICBDb25zb2xlLlJlYWRMaW5lKCkKICAgIEVuZCBTdWIKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/EyoWNC/prog.vb (24,31) : error VBNC30451: 'Rectangle' is not declared. It may be inaccessible due to its protection level.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.7328600
stdout