mcs/btests/ArithmeticOperatorsC2.vb

   1 ' BC30512: Option strict On disallows implicit conversions\r
   2 \r
   3 Option Strict On\r
   4 Imports System\r
   5 \r
   6 Module ArithmeticOperatorsC2\r
   7 \r
   8     Sub main()\r
   9         Dim a1, a2 As Integer\r
  10 \r
  11         a1 = 12 \ 2.5\r
  12 \r
  13         Dim b1 As Decimal\r
  14         b1 = 34.45D\r
  15         a1 = b1 / 0\r
  16 \r
  17     End Sub\r
  18 \r
  19 End Module