5 Console.WriteLine(f())
\r
9 Dim arr(15) As Boolean
\r
11 ' Left shift operator tests
\r
16 If a1 = 10 Then arr(0) = True
\r
20 If a1 = 254 Then arr(1) = True
\r
24 If a1 = 0 Then arr(2) = True
\r
26 Dim b1 As Integer = 5
\r
27 Dim b2 As Integer = -5
\r
30 If b1 = 2560 Then arr(3) = True
\r
34 If b1 = -2560 Then arr(4) = True
\r
36 b1 = Integer.MaxValue
\r
38 If b1 = -512 Then arr(5) = True
\r
40 b1 = Integer.MinValue
\r
42 If b1 = 0 Then arr(6) = True
\r
46 If b1 = 0 Then arr(7) = True
\r
48 ' Right shift operator tests
\r
53 If c1 = 2 Then arr(8) = True
\r
57 If c1 = 127 Then arr(9) = True
\r
61 If c1 = 0 Then arr(10) = True
\r
63 Dim d1 As Integer = 5
\r
66 If d1 = 0 Then arr(11) = True
\r
70 If d1 = -1 Then arr(12) = True
\r
72 d1 = Integer.MaxValue
\r
74 If d1 = 4194303 Then arr(13) = True
\r
76 d1 = Integer.MinValue
\r
78 If d1 = -4194304 Then arr(14) = True
\r
82 If d1 = 0 Then arr(15) = True
\r
84 'For i As Integer = 0 To arr.GetUpperBound(0)
\r
85 ' Console.WriteLine("{0}: {1}", i, arr(i))
\r
88 For Each bval As Boolean In arr
\r