Delegate Function Operation(x As Integer, y As Integer) As Integer
Sub Main()
Console.WriteLine(Evaluate(AddressOf Add, 55, 66))
Console.WriteLine(Evaluate(AddressOf [Sub], 100, 36))
Console.WriteLine(Evaluate(AddressOf Multiply, 5, 66))
Console.WriteLine(Evaluate(AddressOf Div, 500, 55))
Console.ReadKey()
End Sub
Function Evaluate(f As Operation, x As Integer, y As Integer) As Integer
Return f(x, y)
End Function
Function Add(x As Integer, y As Integer) As Integer
Return x + y
End Function
Function [Sub](x As Integer, y As Integer) As Integer
Return x - y
End Function
Function Multiply(x As Integer, y As Integer) As Integer
Return x * y
End Function
Function Div(x As Integer, y As Integer) As Integer
Return x / y
End Function
1 个回答