mcs/mbas/Test/tests/LongLiteralB.vb

   1 Imports System
   2 Module LongLiteral
   3         Sub Main()
   4         Try
   5                 Dim a As Long
   6                 If a<>0 Then
   7                         Console.WriteLine("LongLiteralC:Failed-Default value assigned to long variable should be 0")
   8                 End If
   9         Catch e As Exception
  10                 Console.WriteLine(e.Message)
  11         End Try
  12         End Sub
  13 End Module