excel - 三角形边的宏 VBA 消息框

Question

我正在尝试创建一个宏，询问用户三角形的边并显示其属性。我们可以控制参数的有效性，在需要时显示错误信息。

我写了以下代码，但它似乎不起作用：

Sub SideTriangle()

Dim x As Double
Dim y As Double
Dim z As Double
ActiveCell = InputBox("Enter side of triangle")

If x = y And y = z And z = x Then
    MsgBox "Equilateral"
ElseIf x = y Or y = z Or z = x Then
    MsgBox "Isosceles"
Else
    If x <> y And x <> z And y <> z Then
    MsgBox "Scalene"
    ElseIf f(x * x) + (y * y) = (z * z) Or (y * y) + (z * z) = (x * x) Or (x * x) + (z * z) = (y * y) Then
    RectangleTriangle "Rectangle triangle"
    
    Else: MsgBox "Error"
        End If
        
End If

End Sub