今天下午就要交了!VB编程：用IntputBox函数输入3个数据,如果这3个数据能够成三角形,计算并在窗体上输出三角形的面积1.构成三角形的条件是任意两边之和大于第三边,三边为abc,面积为s=根号x(x

Question

今天下午就要交了!
VB编程：用IntputBox函数输入3个数据,如果这3个数据能够成三角形,计算并在窗体上输出三角形的面积
1.构成三角形的条件是任意两边之和大于第三边,三边为abc,面积为s=根号x(x-a)(x-b)(x-c),其中：x=1/2(a+b+c)
这是分两题的,面积计算的是第二题

Answer 1

dim a,b,c as single
a=inputbox("a=")
b=inputbox("b=")
c=inputbox("c=")
if ((a+b)>c and (a+c)>b and (b+c)>a) then
x=(a+b+c)/2
s=sqrt(x*(x-a)*(x-b)*(x-c))
msgbox "s=" & s
end if .