海伦公式计算机VB编程!!!高手都来啊!!>O<!!
发布网友
发布时间：2024-10-22 09:17
共1个回答
热心网友
时间：2024-10-22 11:05
a = Val(texta.Text)
b = Val(textb.Text)
c = Val(textc.Text)
p = (a + b + c) / 2
if p>a and p>b and p>c then
s = sqr(p*(p - a) * (p - b) * (p - c) )
else
msgbox "输入的值不能构成三角形！"
exit sub
end if
print s
End Sub
