利用输入对话框函数输入三角形的3条边长，首先判断给出的3条边能否构成三角形，如果可以构成，则计算并输出该3角形的面积；否则用信息对话框输出要求，重新输入3条边。计算公式：s=a+b+c/2;s的平方＝s(s-a)(s-b)(s-c)

array(1 to 3)
for i =1 to 3
array(i)=inputbox('')
next

if array(1)+array(2)<=array(3) then
msgbox "prease retry input data"
exit sub
end if

if array(1)+array(3)<=array(2) then
msgbox "prease retry input data"
exit sub
end if

if array(3)+array(2)<=array(1) then
msgbox "prease retry input data"
exit sub
end if

for i=1 to 3
s=s+array(i)
next

s=s/2
S2=s*(s-array(1))*(s-array(2))*(s-array(3))

hehe 不知道对么？
验证可能存在问题
没多想了 哈哈