mcs/mbas/Test/tests/AssignmentOperators.vb

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