Imports System
Public Class Test
Public Shared Sub Main( )
Dim width, height, column_width, column_area, room_area As Decimal, column_count As Integer
Console.WriteLine ( "Room Width in meters" )
width = Console.ReadLine ( )
Console.WriteLine ( "Room Height in meters" )
height = Console.ReadLine ( )
Console.WriteLine ( "Column width in meters" )
column_width = Console.ReadLine ( )
coulumn_count = 6
room_area = width * height
column_area = column_width ^ 2
room_area = room_area - ( column_area * column_count)
Console.WriteLine ( 'Room Area is ' & room_area)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkgCgkJRGltIHdpZHRoLCBoZWlnaHQsIGNvbHVtbl93aWR0aCwgY29sdW1uX2FyZWEsIHJvb21fYXJlYSBBcyBEZWNpbWFsLCBjb2x1bW5fY291bnQgQXMgSW50ZWdlcgoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKCJSb29tIFdpZHRoIGluIG1ldGVycyIpCgkJd2lkdGggPSBDb25zb2xlLlJlYWRMaW5lKCkKCQlDb25zb2xlLldyaXRlTGluZSgiUm9vbSBIZWlnaHQgaW4gbWV0ZXJzIikKCQloZWlnaHQgPSBDb25zb2xlLlJlYWRMaW5lKCkKCQlDb25zb2xlLldyaXRlTGluZSgiQ29sdW1uIHdpZHRoIGluIG1ldGVycyIpCgkJY29sdW1uX3dpZHRoID0gQ29uc29sZS5SZWFkTGluZSgpCgkJY291bHVtbl9jb3VudCA9IDYKCQlyb29tX2FyZWEgPSB3aWR0aCAqIGhlaWdodAoJCWNvbHVtbl9hcmVhID0gY29sdW1uX3dpZHRoIF4gMgoJCXJvb21fYXJlYSA9IHJvb21fYXJlYSAtIChjb2x1bW5fYXJlYSAqIGNvbHVtbl9jb3VudCkKCQoJCQoJCUNvbnNvbGUuV3JpdGVMaW5lKCdSb29tIEFyZWEgaXMgJyAmIHJvb21fYXJlYSkKCQkKCUVuZCBTdWIKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/iNjKTz/prog.vb (20,1) : Error VBNC90019: Expected ')'.
Error recovery not implemented yet.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.6608910
stdout