0

割り当ては

1) 以下の操作を行うための各種手順を用いたプログラムを作成してください。デリゲートを使用してこれらのプロシージャを呼び出します。必ずプログラムを文書化し、プログラムに b の数字とともに説明テキストを出力させてください。c.
    a) テキスト文字列を逆の語順で出力します。
    b) 文字列の文字数を出力します。
    c) 文字列内の単語数を出力します。

次のコードを試しましたが、AllGreets.DynamicInvoke で例外が発生します。これを修正するにはどうすればよいですか?

私はあまりプログラマーではないので、このクラスを受講することは私にとって最良の選択ではありませんでしたが、今は修了する必要があります。すでに支払われているので。

Module Module1

    Sub Main()

        Dim part1 As GreetingDelegate
        Dim part2 As GreetingDelegate
        Dim part3 As GreetingDelegate
        Dim part4 As GreetingDelegate

        part1 = AddressOf greating
        part2 = AddressOf greatingchar
        part3 = AddressOf reverse
        part4 = AddressOf number

        Dim AllGreets As GreetingDelegate = _
                      [Delegate].Combine(part1, part2, part3, part4)

        AllGreets.DynamicInvoke()
    End Sub

    Public Delegate Sub GreetingDelegate(ByVal MsgString As String)

    ' What the greating is
    Public Sub greating()

        Console.WriteLine("The greating is Hi how are you?")
        System.Console.WriteLine("press enter")
        Console.ReadLine()
    End Sub

    ' Number of char in string
    Public Sub greatingchar()

        Dim thing As Long
        thing = Len("Hi how are you?")
        System.Console.WriteLine("There is")
        System.Console.WriteLine(thing)
        System.Console.WriteLine("characters in this greating")
        System.Console.WriteLine("press enter")
        Console.ReadLine()
    End Sub

    Public Sub reverse()

        ' string in reverse
        Dim t As String

        t = StrReverse$("Visual Basic")

        System.Console.WriteLine(t)
        System.Console.WriteLine("press enter")
        System.Console.ReadLine()
    End Sub

    Public Sub number()

        'number of word in string

        Dim count As Long
        Dim text As String

        text = "Hi how are you?"
        count = text.Split(" ").Length
        System.Console.WriteLine(count)
        System.Console.WriteLine("press enter")
        System.Console.ReadLine()
    End Sub
End Module
4

1 に答える 1