怎样使用VBA根据边长求三角形周长和面积？

首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码，然后运行 Function Triangle(a, b, c, options As String)  '根据边长求面积和周长   If a <=0 Or b <=0 Or c <=0 Then Triangle="三边长不能为0": Exit Function   '三边不能小于等于0   If a <=Abs(b-c) Or b <=Abs(a-c) Or c <=Abs(a-b) Then Triangle=   "三边长不能为0": Exit Function   If options="L" Then Triangle=Val(a+b+c) '如果参数为“L”则求周长   Dim temp As Double   temp=(a+b+c) / 2   If options="A" Then Triangle=WorksheetFunction.Power(temp *     (temp-a) * (temp-b) * (temp-c), 0.5) '否则求面积 End Function

在单元格A1:C1中输入3、4、5，在单元格A4中输入公式“=Triangle (A1,B1,C1,"A")”，则结果为三角形面积6，如图