mcs/btests/DecimalLiteralA.vb

   1 Imports System
   2 Module DecimalLiteral
   3         Sub Main()
   4                 Try
   5                         Dim a As Decimal=1.23D
   6                         Dim b As Decimal=1.23E+10D
   7                         Dim c As Decimal=9223372036854775808D
   8                         Dim d As Decimal=.23D
   9                         Dim f As Decimal
  10                         If a<>1.23D Then
  11                                 Console.WriteLine("#A1-DecimalLiteralA:Failed")
  12                         End If
  13                          If b<>1.23E+10D Then
  14                                 Console.WriteLine("#A2-DecimalLiteralA:Failed")
  15                         End If
  16                          If c<>9.22337203685478E+18D Then
  17                                 Console.WriteLine("#A3-DecimalLiteralA:Failed")
  18                         End If
  19                         If d<>0.23D Then
  20                                 Console.WriteLine("#A4-DecimalLiteralA:Failed")
  21                         End If
  22                         If f<>0 Then
  23                                 Console.WriteLine("#A5-DecimalLiteralA:Failed")
  24                         End If
  25
  26
  27                 Catch e As Exception
  28                         Console.WriteLine(e.Message)
  29                 End Try
  30         End Sub
  31 End Module