输入a,b,c三个数，看是否能构成三角形，如果能就计算它的面积

dim a,b,c,l,s
a=val(inputbox("输入a的值："))
b=val(inputbox("输入b的值："))
c=val(inputbox("输入c的值："))
l=(a+b+c)/2
if a<=l or b<=l or c<=l then
msgbox "输入的三个数不能组成三角形！"
else
s=sqr(l*(l-a)*(l-b)*(l-c))
print "输入的三角形的面积是：";s
end if

dim a,b,c,m,s
a=val(inputbox("a："))
b=val(inputbox("b："))
c=val(inputbox("c："))

m=0.5*(a+b+c)
if a+b>c and b+c>a and a+c>b then'判断三角形
s=sqr(m*(m-a)*(m-b)*(m-c))'三角形面积计算
print s
else
print"不能构成三角形"
end if

·建议取LXZ的
另一位的虽然看起来一样，但是不符合你的公式，小学时候教的公式是LXZ那样的··