mcs/btests/ArithmeticOperators2.vb

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