海式计算机VB编程!!!高手都来啊!!>O<!!
发布网友
发布时间：22小时前
共1个回答
热心网友
时间：20小时前
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
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
E-MAIL:11247931@qq.com