2个回答
展开全部
dim a as double,b as double,c as double
'省略对a,b,c进行降序排列的代码
if a-b<c and a>0 and b>0 and c>0 then
Me.print "YES"
if a^2>b^2+c^2 then
Me.print "钝角"
else if a^2=b^2+c^2 then
Me.print "直角"
else
Me.print "锐角"
end if
else
Me.print "NO"
end if
'省略对a,b,c进行降序排列的代码
if a-b<c and a>0 and b>0 and c>0 then
Me.print "YES"
if a^2>b^2+c^2 then
Me.print "钝角"
else if a^2=b^2+c^2 then
Me.print "直角"
else
Me.print "锐角"
end if
else
Me.print "NO"
end if
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询