Question

VB编程：用IntputBox函数输入3个数据，如果这3个数据能够成三角形，计算并在窗体上输出三角形的面积

1。构成三角形的条件是任意两边之和大于第三边,三边为abc,面积为s

Answer 1

Dim a,b,c,l,S
a=val(inputbox("请输入第一条边的长："))
b=val(inputbox("请输入第二条边的长："))
c=val(inputbox("请输入第三条边的长："))
l=(a+b+c)/2
if l<=a or l<=b or l<=c then
msgbox "输入的数据不能组成三角形!"
exit sub
end if
S=sqr(l*(l-a)*(l-b)*(l-c))
print S