mcs/btests/ArithmeticOperators2.vb

   1 \r
   2 Imports System\r
   3 \r
   4 Module ArithmeticOperators2\r
   5 \r
   6     Sub main()\r
   7 \r
   8         Dim c1 As Decimal\r
   9         c1 = 12.345\r
  10         c1 = c1 Mod 0\r
  11 \r
  12     End Sub\r
  13 \r
  14 End Module