mcs/btests/DecimalLiteral.vb

   1 Imports System
   2 Module DecimalLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Decimal=1.23
   6                         Dim b As Decimal=1.23E+10
   7                 Catch e As Exception
   8                         Console.WriteLine(e.Message)
   9                 End Try
  10         End Sub
  11 End Module