mcs/btests/ArithmeticOperatorsC1.vb

   1 '  BC30542: Division by zero occurred while evaluating this expression.\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module ArithmeticOperatorsC1\r
   6 \r
   7     Sub main()\r
   8         Dim a1, a2 As Integer\r
   9         Dim b1 As Double\r
  10 \r
  11         a1 = 10 \ Nothing\r
  12         Console.WriteLine(a1)\r
  13 \r
  14         b1 = 12.35 / 0\r
  15         Console.WriteLine(b1)\r
  16 \r
  17         a1 = 10 Mod 0\r
  18 \r
  19 \r
  20     End Sub\r
  21 \r
  22 End Module