Добавление многоадресного делегата в программу VB.NET

Для задания я должен был написать программу, которая использовала делегатов для выполнения всех четырех основных математических функций одновременно. Что я и сделал. Вот код из этого.

Module Module1
    Public Delegate Sub math(ByVal A As Integer, ByVal B As Integer)
    Dim A, B, C As Integer
    Sub Main()
        Console.WriteLine("Please enter a number")
        A = Int32.Parse(Console.ReadLine())
        Console.WriteLine("Please enter another number")
        B = Int32.Parse(Console.ReadLine())
        Dim objmath As New math(AddressOf add)
        objmath(A, B)
        add(A, B)
        objmath = New math(AddressOf multiply)
        objmath(A, B)
        multiply(A, B)
        objmath = New math(AddressOf subtract)
        subtract(A, B)
        subtract(A, B)
        objmath = New math(AddressOf divide)
        divide(A, B)
        divide(A, B)
        Console.ReadKey()
    End Sub
    Sub add(ByVal A As Integer, ByVal B As Integer)
        C = A + B
        Console.WriteLine(C)
    End Sub
    Sub multiply(ByVal A As Integer, ByVal B As Integer)
        C = A * B
        Console.WriteLine(C)
    End Sub
    Sub subtract(ByVal A As Integer, ByVal B As Integer)
        C = A - B
        Console.WriteLine(C)
    End Sub
    Sub divide(ByVal A As Integer, ByVal B As Integer)
        C = A / B
        Console.WriteLine(C)
    End Sub
End Module

Теперь меня попросили добавить многоадресный делегат в эту программу, которая содержит все четыре процедуры и вызывает процедуры, используя метод DynamicInvoke(). Как и где в моей программе я бы добавил это?

0 ответов

Другие вопросы по тегам