mcs/btests/ArithmeticOperators1.vb

   1
   2 Imports System
   3
   4 Module ArithmeticOperators1
   5
   6     Sub main()
   7
   8         Dim b1 As Decimal
   9         b1 = 34.45
  10         b1 = b1 / 0
  11         Console.WriteLine(b1)
  12
  13     End Sub
  14
  15 End Module