Option Explicit Off
Option Strict On
Option Infer On
Imports System
Module Test
Sub Main( )
obj = "42"
Dim int = 42
Dim dbl = 4.2
'Dim tst ' error BC30209: Option Strict On requires all variable declarations to have an 'As' clause.
Console .WriteLine ( "obj:" & GetTypeOf( obj) )
Console.WriteLine ( "int:" & GetTypeOf( int ) )
Console.WriteLine ( "dbl:" & GetTypeOf( dbl) )
Console.ReadLine ( )
End Sub
Function GetTypeOf( Of T) ( v As T) As String
Return GetType( T) .FullName
End Function
End Module
T3B0aW9uIEV4cGxpY2l0IE9mZgpPcHRpb24gU3RyaWN0IE9uCk9wdGlvbiBJbmZlciBPbgoKSW1wb3J0cyBTeXN0ZW0KCk1vZHVsZSBUZXN0ClN1YiBNYWluKCkKICAgICBvYmogPSAiNDIiCiAgICAgRGltIGludCA9IDQyCiAgICAgRGltIGRibCA9IDQuMgogICAgICdEaW0gdHN0ICcgZXJyb3IgQkMzMDIwOTogT3B0aW9uIFN0cmljdCBPbiByZXF1aXJlcyBhbGwgdmFyaWFibGUgZGVjbGFyYXRpb25zIHRvIGhhdmUgYW4gJ0FzJyBjbGF1c2UuCiAgICAgQ29uc29sZS5Xcml0ZUxpbmUoIm9iajoiICYgR2V0VHlwZU9mKG9iaikpCiAgICAgQ29uc29sZS5Xcml0ZUxpbmUoImludDoiICYgR2V0VHlwZU9mKGludCkpCiAgICAgQ29uc29sZS5Xcml0ZUxpbmUoImRibDoiICYgR2V0VHlwZU9mKGRibCkpCgogICAgIENvbnNvbGUuUmVhZExpbmUoKQpFbmQgU3ViCgpGdW5jdGlvbiBHZXRUeXBlT2YoT2YgVCkodiBBcyBUKSBBcyBTdHJpbmcKICBSZXR1cm4gR2V0VHlwZShUKS5GdWxsTmFtZQpFbmQgRnVuY3Rpb24KCkVuZCBNb2R1bGUKIAo=
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/kzUsS6/prog.vb (3,13) : Error VBNC30206: 'Option' must be followed by 'Compare', 'Explicit', or 'Strict'.
Error recovery not implemented yet.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.6785260
stdout