用VB编写多边形的面积的程序,海伦公式；求两个填空得答案！

Private Sub Command1_Click()
Dim TOTAL As Single, S As Single
'此处有一空(1)
S = 0
Call AREA(3, 6.5, 8.5, S)
TOTAL = TOTAL + S
Call AREA(8.5, 5, 8, S)
TOTAL = TOTAL + S
Call AREA(8, 6, 4, S)
TOTAL = TOTAL + S
Print "多边形的面积为："; Round(TOTAL, 2)
End Sub

Sub AREA(A As Single, B As Single, C As Single, T As Single)
L = (A + B + C) / 2
'此处有一空(2)
End Sub

(1) TOTAL = 0

(2) T = Sqr(L*(L-A)*(L-B)*(L-C))

空1： TOTAL = 0 空2： T = sqrt(L * (L-A) * (L-B) * (L-C))'这就是海伦公式

空1：TOTAL =0 空2：T=sqr(L*(L-A)*(L-B)*(L-C))

你好！ (1) TOTAL = 0 (2) T = Sqr(L*(L-A)*(L-B)*(L-C)) 仅代表个人观点，不喜勿喷，谢谢。