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             i = 20L\r
  15             s = 20I\r
  16             s = 20
  17         Catch e As Exception\r
  18             Console.WriteLine(e.Message)\r
  19         End Try\r
  20     End Sub\r
  21 End Module