怎样使用VBA输入三边长求三角形面积?

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

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

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 输入三边长求三角形面积()

 

    Dim A, B, C, temp

 

    A=Application.InputBox("请输入边一长度:", "数据", 3, 10, 10, , , 1)

 

    B=Application.InputBox("请输入边二长度:", "数据", 4, 10, 10, , , 1)

 

    C=Application.InputBox("请输入边三长度:", "数据", 5, 10, 10, , , 1)

 

    temp=(A+B+C) / 2

 

    If A <=0 Or B <=0 Or C <=0 Then MsgBox "所有边长都必须大于0": Exit Sub

 

    If A <=Abs(B-C) Or B <=Abs(A-C) Or C <=Abs(A-B) Then MsgBox

 

        "两边之差不能小于第三边": Exit Sub

 

    MsgBox "面积为:" & WorksheetFunction.Power(temp * (temp-A) * (temp-B)

 

    * (temp-C), 0.5)

 

End Sub

5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将提示输入三边长度