mcs/mbas/Test/tests/IntegerLiteralTest.vb

   1 imports System
   2
   3 Module IntegerLiteralTest\r
   4     Sub Main()\r
   5         Try\r
   6             Dim i As Integer\r
   7             Dim l As Long\r
   8             Dim s As Short\r
   9 \r
  10             i = 20\r
  11             i = System.Int32.MaxValue\r
  12             i = System.Int32.MinValue\r
  13 \r
  14             l = (System.Int32.MaxValue)\r
  15             l = l + 100\r
  16             l = System.Int64.MaxValue\r
  17             l = System.Int64.MinValue\r
  18         Catch e As Exception\r
  19             Console.WriteLine(e.Message)\r
  20         End Try\r
  21     End Sub\r
  22 End Module\r