1. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByRef x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByRef x As Integer, ByVal y As Integer) As Integer func1 = a + x + y End Function End Module | 2. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 sub1(5, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByRef x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByRef x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module | 3. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByVal x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByVal x As Integer, ByVal y As Integer) As Integer func1 = a + x + y End Function End Module | 4. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 4 sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByVal x As Integer, ByRef y As Integer) a += x : x += a : y += a End Sub Function func1(ByVal x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module | 5. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByVal x As Integer, ByRef y As Integer) a += x : x += a : y += a End Sub Function func1(ByVal x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module | 6. What is the result? Module Module1 Dim a As Integer = 2 Sub Main() sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByVal x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByRef x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module | 7. What is the result? Module Module1 Dim a As Integer = 1 Sub Main() sub1(a, a) Console.WriteLine(func1(a, a)) End Sub Sub sub1(ByVal x As Integer, ByRef y As Integer) a += x : x += a : y += a End Sub Function func1(ByVal x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module | 8. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 Console.WriteLine(func1(a, a)) sub1(5, a) End Sub Sub sub1(ByVal x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByVal x As Integer, ByVal y As Integer) As Integer func1 = a + x + y End Function End Module | 9. What is the result? Module Module1 Dim a As Integer Sub Main() Dim a As Integer = 5 Console.WriteLine(func1(a, a)) sub1(a, a) End Sub Sub sub1(ByRef x As Integer, ByVal y As Integer) a += x : x += a : y += a End Sub Function func1(ByRef x As Integer, ByVal y As Integer) As Integer func1 = a + x + y End Function End Module | 10. What is the result? Module Module1 Dim a As Integer = 1 Sub Main() sub1(a, a) Console.WriteLine(func1(a, a) - 4) End Sub Sub sub1(ByRef x As Integer, ByRef y As Integer) a += x : x += a : y += a End Sub Function func1(ByRef x As Integer, ByRef y As Integer) As Integer func1 = a + x + y End Function End Module |
|