问System.Reflection.TargetParameterCountException

EN

Private Delegate Sub Words(ByVal input As String)
    Sub Main()
    Console.Title = "Fun with words"
    Console.WriteLine("Type some words below.")
    Dim Input As String = Console.ReadLine()
    Dim Display As [Delegate]
    Dim Backwards As Words
    Dim Length As Words
    Dim Wordcount As Words
    Backwards = New Words(AddressOf BackwardsFunc)
    Length = New Words(AddressOf LengthFunc)
    Wordcount = New Words(AddressOf WordcountFunc)
    Display = MulticastDelegate.Combine(Backwards, Length, Wordcount)
    Display.DynamicInvoke()

    Console.ReadKey() 'end
End Sub
Sub BackwardsFunc(ByVal Input As String)
    ' Backwards
    Console.Clear()
    Console.ForegroundColor = ConsoleColor.Cyan
    Console.WriteLine(Input)
    Console.ResetColor()
    Console.WriteLine("Backwards:")
    Dim Array() As Char = Input.ToCharArray
    Dim Stack As New Stack()
    For Each element As Char In Array
        Stack.Push(element)
    Next
    For Each element As Char In Stack
        Console.WriteLine(element)
    Next
End Sub
Sub LengthFunc(ByVal Input As String)
    Console.WriteLine()
    Console.WriteLine("Length: " & Input.Length)
End Sub
Sub WordcountFunc(ByVal Input As String)
    Dim Items As String() = Input.Split(New Char() {" "c})
    Console.WriteLine()
    Console.WriteLine("Words: " & Items.Length)
End Sub