编写一个求三角形面积的VB应用程序

运用海伦公式
dim P as long,S as long
if a+b>c then
if b+c>a then
if a+c>b then
p=(a+b+c)/2
S=sqr(p*(p-a)*(p-b)*(p-c))
end if
end if
end if