mcs/btests/DecimalTypeCharTestA.vb

   1 Imports System\r
   2 Module DecimalTypeCharTest\r
   3     Sub Main()\r
   4         Dim a As Decimal\r
   5         a@=10.25\r
   6 \r
   7         Dim b@\r
   8         b=20.24\r
   9 \r
  10         Dim c As Decimal\r
  11         c@=23.45\r
  12 \r
  13         Dim d@ As Decimal\r
  14         d=45.56\r
  15     End Sub\r
  16 End Module\r