用电子表格EXCEL做一个程序,求四边形的周长和面积

用电子表格EXCEL做一个程序,求四边形的周长和面积
利用FUNCTION ,SUB,inputBox 输入2个边长,msgBox显示四边形的周长和面积

Sub Main()
Dim length As Double
Dim wideth As Double
length = Application.InputBox(Prompt:= _
请输入长,Type:=1)
wideth = Application.InputBox(Prompt:= _
请输入宽,Type:=1)
MsgBox 面积为: & AREA(length,wideth) & 周长为: & GIRTH(length,wideth)
End Sub
Function AREA(a,b)
AREA = a * b
End Function
Function GIRTH(c,d)
GIRTH = 2 * (c + d)
End Function