输入任意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