VB6。0 编程小问题（很好的话加分）

'已经三边，计算三角形面积
Function S3(a As Double, b As Double, c As Double) As Double
'参数:a,b,c 三角形的三条边
'返回值:三角形的面积

On Error Resume Next '内部错误处理
Dim check As Boolean, s As Double, x As Double
x = (a + b + c) / 2
'若有一边为零的话不是三角形,若两边和小于第三边的话也不是三角形
If a = 0 Or b = 0 Or c = 0 Then
check = False
ElseIf a + b < c Or a + c < b Or b + c < a Then
check = False
Else
check = True
End If

If check = True Then
s = Round(Sqr(x * (x - a) * (x - b) * (x - c)), 2)
'round()返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。
'否则的话，结果是一大串的
S3 = s
End If
End Function

用海伦公式