mcs/mbas/Test/rerrors/AssignmentStatements3.vb

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