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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 06:06:41

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

用电子表格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