mcs/btests/IntegerLiteralTest.vb

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