Code:
Imports System.Delegate
Module Module1
Dim a As Integer
Dim b As Integer
Dim Answer As Integer
Private Delegate Sub NewDelegate()
Sub Main()
Dim ask As NewDelegate
ask = New NewDelegate(AddressOf Ask1)
ask()
Dim Multiply1 As NewDelegate
Multiply1 = New NewDelegate(AddressOf Multiply)
Multiply1()
Dim Subtract1 As NewDelegate
Subtract1 = New NewDelegate(AddressOf Subtract)
Subtract1()
Dim Addition1 As NewDelegate
Addition1 = New NewDelegate(AddressOf Addition)
Addition1()
Dim Divide1 As NewDelegate
Divide1 = New NewDelegate(AddressOf Divide)
Divide1()
Console.ReadLine()
End Sub
Sub Ask1()
Console.WriteLine("Enter First Integer")
a = Console.ReadLine()
Console.WriteLine("Enter Second Integer")
b = Console.ReadLine()
End Sub
Sub Multiply()
Answer = a * b
Console.WriteLine(Answer)
End Sub
Sub Subtract()
Answer = a - b
Console.WriteLine(Answer)
End Sub
Sub Addition()
Answer = a + b
Console.WriteLine(Answer)
End Sub
Sub Divide()
Answer = a / b
Console.WriteLine(Answer)
End Sub
End ModuleCode:
Imports System.Delegate
Module Module1
Dim a As Integer
Dim b As Integer
Dim Answer As Integer
Private Delegate Sub NewDelegate()
Sub Main()
Dim ask As NewDelegate
ask = New NewDelegate(AddressOf Ask1)
ask()
Dim Multiply1 As NewDelegate
Multiply1 = New NewDelegate(AddressOf Multiply)
Multiply1()
Dim Subtract1 As NewDelegate
Subtract1 = New NewDelegate(AddressOf Subtract)
Subtract1()
Dim Addition1 As NewDelegate
Addition1 = New NewDelegate(AddressOf Addition)
Addition1()
Dim Divide1 As NewDelegate
Divide1 = New NewDelegate(AddressOf Divide)
Divide1()
Console.ReadLine()
End Sub
Sub Ask1()
Console.WriteLine("Enter First Integer")
a = Console.ReadLine()
Console.WriteLine("Enter Second Integer")
b = Console.ReadLine()
End Sub
Sub Multiply()
Answer = a * b
Console.WriteLine(Answer)
End Sub
Sub Subtract()
Answer = a - b
Console.WriteLine(Answer)
End Sub
Sub Addition()
Answer = a + b
Console.WriteLine(Answer)
End Sub
Sub Divide()
Answer = a / b
Console.WriteLine(Answer)
End Sub
End Module