代码如下: dim a!b!c!s!p!a=inputbox("请输入第一条边长") b=inputbox("请输入第二条边长") c=inputbox("请输入第三条边长") if a+b print"这样的三角形不存在 else p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) print"这个三角形的面积是;s end if 扩展资料: 语言缺点: v**ual ...
余弦定理的作用(1)已知三角形的三条边长,可求出三个内角;(2)已知三角形的两边及夹角,可求出第三边.余弦定理是指三角形中任何一边的平方等于其它两边的平方和减去这两边与它们夹角的余弦的积的2倍,即 a2=b2+c2-2bccos a. c2=a2+b2-2abcos c. b2=a2+c2-2accos b.∠c=arccosc