多边形的面积求解

Question

题目:已知多边形各边的长度,计算多边形面积.
要求:在窗体单击事件过程中,计算出多边形面积.将结果显示在窗体.
提示:划分为多个三个形,求面积之和,
area=sqr(c(c-x)(c-y)(c-z)),c=0.5*(x+y+z)
还要求将三角形面积的计算程序作为函数过程定义.麻烦大家帮帮忙,我想学好VB...

Answer 1

Private Sub Form_Click()
    MsgBox CStr(TriangleArea(3, 4, 5))
End SubPrivate Function TriangleArea(ByVal x As Single, y As Single, z As Single) As Single
    'area=sqr(c(c-x)(c-y)(c-z)),c=0.5*(x+y+z)
    Dim c As Single
    c = (x + y + z) / 2
    TriangleArea = Sqr(c * (c - x) * (c - y) * (c - z))
    
End Function