mcs/mbas/Test/tests/AssignmentOperators.vb

   1 Imports System
   2
   3 Module M1
   4     Function Main() As Integer
   5
   6         Dim x As Integer = 7
   7         Dim y As Integer = 2
   8
   9         y += 3
  10         x = y + 10
  11         If y <> 5 Then
  12             Return 1
  13         End If
  14         If x <> 15 Then
  15             Return 2
  16         End If
  17
  18         x += 9
  19         If x <> 24 Then
  20             Return 3
  21         End If
  22
  23         Dim c As Byte = 3
  24         Dim d As Byte = 5
  25         d ^= c
  26         Console.WriteLine(d)
  27
  28         Dim s As Short = 5
  29         Dim i As Integer = 400001
  30         s   <<= i
  31         Console.WriteLine(s)
  32
  33     End Function
  34
  35 End Module