割り当ては
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