mcs/btests/IntegerLiteral1Test.vb

   1 imports System
   2
   3 Module IntegerLiteralTest\r
   4     Sub Main()\r
   5         Try
   6             Dim i As Integer\r
   7             Dim l As Long\r
   8             Dim s As Short
   9
  10             l = 20L\r
  11             s = 20S\r
  12             i = 20I\r
  13 \r
  14         Catch e As Exception\r
  15             Console.WriteLine(e.Message)\r
  16         End Try\r
  17     End Sub\r
  18 End Module