mcs/btests/AssignmentStatements3.vb

   1 ' ErrorMessage:  System.OverflowException: Arithmetic operation resulted in an overflow.\r
   2 \r
   3 Imports System\r
   4 \r
   5 Module AssignmentStatements3\r
   6 \r
   7     Sub main()\r
   8 \r
   9         Dim b As Byte = 0\r
  10         b += 1000\r
  11         If b <> 1000 Then\r
  12             Throw New Exception("#AS3-Assignment Statement Failed")\r
  13         End If\r
  14 \r
  15     End Sub\r
  16 \r
  17 \r
  18 End Module\r