我似乎无法正确编写此代码。它涉及到代表

Question

所以我必须为其编写代码的提示在这里： 编写一个具有类形状的程序。 SquareArea() 和 RectangleArea() 是分别计算正方形和矩形面积的两种方法。创建一个名为 Area 的委托，在委托的帮助下调用方法并添加两个方法产生的结果。我希望这个对你有用。

问题：我收到四个错误。 1) 在“Module1”中找不到“Sub Main” - 我试图通过在 Module Module 1 之后添加 Sub Main() 来解决这个问题，但这并没有解决任何问题。 2) 未声明“FnAreaSquare、FnAreaRectangle 和 FnAreaBoth”。在我完成的其他任务中，我们就是这样做的。我无法弄清楚如何解决这些问题。所以，如果有人有时间，你能看看我的代码并指出我可能犯的任何错误吗？谢谢。

这是我的代码：

Module Module1

    Public Delegate Sub Area()
    Sub Delegates()
        Dim Fns As Area
        Fns = New Area(AddressOf FnAreaSquare)
        Fns()
        Fns = New Area(AddressOf FnAreaRectangle)
        Fns()
        Fns = New Area(AddressOf FnAreaBoth)
        Fns()
    End Sub

    Public Class Shapes
        Dim SqSide, RectSide1, RectSide2 As Double

        Sub FnAreaSquare()

            SqSide = 6
            Console.WriteLine("The area of the square is " & (SqSide) ^ 2)
            Console.ReadKey()

        End Sub

        Sub FnAreaRectangle()

            RectSide1 = 7
            RectSide2 = 3
            Console.WriteLine("The area of the rectangle is " & (RectSide1 * RectSide2))
            Console.ReadKey()

        End Sub

        Sub FnAreaBoth()

            Console.WriteLine("The area of the both shapes added is " & (((SqSide) ^ 2) + (RectSide1 * RectSide2)))
            Console.ReadKey()

        End Sub

    End Class



End Module

这个问题真的让我很生气，因为我花了这么多时间。知道那里可能可以帮助我的人真是太棒了。谢谢大家！

更新：这是我的新代码。我一切正常，但我不知道如何运行 Shapes 类中也发生的事情。我必须在我的项目中包含 Shapes 类，所以我想我会在其中添加 Answer 和 Answer 1。如果有更好的方法我可以在我的程序中实现 Shapes 类而不改变程序的结构，那将很有帮助。谢谢。

Module Module1
Dim SquareSide As Integer = 2
Dim RectangleLength As Integer = 2
Dim RectangleWidth As Integer = 3
Dim Answer As Integer
Dim Answer2 As Integer
Public Delegate Sub Area()

Sub Main()

    Dim Del As Area
    Del = New Area(AddressOf SquareArea)
    Del()

    Del = New Area(AddressOf RectangleArea)
    Del()

End Sub

Sub SquareArea()
    Answer = SquareSide ^ 2
    Console.WriteLine(Answer)
    Console.ReadKey()
End Sub

Sub RectangleArea()
    Answer2 = RectangleLength * RectangleWidth
    Console.WriteLine(Answer2)
    Console.ReadKey()
End Sub

Public Class Shapes

    Sub Shapes()

        Console.WriteLine(Answer + Answer2)

    End Sub


End Class

End Module

Answer 1

这是为您提供的解决方案，我已对其进行了全面评论，以便您了解正在发生的事情。这也将要求用户输入，如果您不需要它，请将其删除并硬编码您想要的值。只有一种计算方法，因为签名必须与委托匹配，您可以创建两个方法和两个委托，但您不需要。值得一提的另一件事是，您可以创建一个函数，当属性设置为另一个属性时进行计算，这样您就不必在最后执行计算。

 Module Module1

'Create instance of Shapes class
Public shape As New Shapes

'Delegate to use we are going to invoke
Delegate Sub Area(ByVal x As Shapes)

Sub Main()

    AskForInput()

End Sub

''' <summary>
''' Asks user for input.
''' </summary>
Public Sub AskForInput()
    If Integer.TryParse(InputBox("Enter side size", "Square Size"), shape.SquareSide) Then
        If Integer.TryParse(InputBox("Enter rectangle length", "Rectangle Length"), shape.RectangleLength) Then
            If Integer.TryParse(InputBox("Enter rectangle width size", "Rectangle Width"), shape.RectangleWidth) Then
                'we are good to go now!

                ' Create an instance of the delegate.  
                Dim a As Area = AddressOf shape.CalculateArea

                'Call the method now.
                a.Invoke(shape)

            Else
                If MsgBox("Invalid Size", MsgBoxStyle.YesNo, "Continue?") = MsgBoxResult.Yes Then
                    AskForInput()
                End If
            End If
        Else
            If MsgBox("Invalid Size", MsgBoxStyle.YesNo, "Continue?") = MsgBoxResult.Yes Then
                AskForInput()
            End If
        End If
    Else
        If MsgBox("Invalid Size", MsgBoxStyle.YesNo, "Continue?") = MsgBoxResult.Yes Then
            AskForInput()
        End If
    End If
End Sub

Public Class Shapes

    Public Property SquareSide As Integer = 0
    Public Property RectangleLength As Integer = 0
    Public Property RectangleWidth As Integer = 0

    ''' <summary>
    ''' Calculates area of a square and rectangle.
    ''' </summary>
    ''' <param name="shape"></param>
    Public Sub CalculateArea(ByVal shape As Shapes)
        Console.WriteLine("Area of the square is: " & CStr(shape.SquareSide ^ 2))
        Console.WriteLine("Area of the rectangle is: " & CStr(shape.RectangleLength * shape.RectangleWidth))

        Console.Read()
    End Sub


End Class

End Module