输入任意3个整数 判断是否能组成三角形 它的面积是多少?

//能组成三角形的条件是   任意2边+起来比第3边大   判断这个条件是否成立既可
求已知3边的面积[没有给出高]
//   可以根据 <海伦公式> 求出面积
      海伦公式:   面积＝根号[d*(d-a)*(d-b)*(d-c)]   其中d＝周长的一半 [(a+b+c)/2] 
      abc是三边长  

示范例题:

form   包括3个   text   1个   command

Private Sub Command1_Click()
Dim aa As Boolean
aa = True
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b < c Or a + c < b Or c + b < a Then aa = False
If aa = False Then
    MsgBox "输入的三条边不能组成三角形"
Else

d = (a + b + c) / 2
s = Sqr(d * (d - a) * (d - b) * (d - c))
MsgBox "能组成三角形,其面积为" & s
End If
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub