UC知道vb IF 题(求代码)
来源：百度知道 编辑：UC知道 时间：2024/06/15 12:05:36
用inputbox函数输入三个数，判断它们是否能构成三角形，如果不能，输出“不是三角形”，否则输出它是“直角”、“等边”、“等腰”或“一般三角形”（用Msgbox输出）。
提示：
⑴ 应该使用if～else if～else语句实现。
⑵在if语句中要使用VB语言的关系表达式描述条件。
如：构成直角三角形的条件是：a*a+b*b =c*c
构成等边三角形的条件是：a=b and b=c
构成等腰三角形的条件是：a=b or a=c or b=c
提示：
⑴ 应该使用if～else if～else语句实现。
⑵在if语句中要使用VB语言的关系表达式描述条件。
如：构成直角三角形的条件是：a*a+b*b =c*c
构成等边三角形的条件是：a=b and b=c
构成等腰三角形的条件是：a=b or a=c or b=c
Dim a, b, c, l, S
a = Val(InputBox("请输入第一条边的长："))
b = Val(InputBox("请输入第二条边的长："))
c = Val(InputBox("请输入第三条边的长："))
l = (a + b + c) / 2
If l <= a Or l <= b Or l <= c Then
MsgBox "输入的数据不能组成三角形!"
elseif (a^2+b^2=c^2) or (a^2+c^2=b^2) or (b^2+c^2=c^2) then
MsgBox "输入的数据组成直角三角形!"
elseif a-b=0 and a-c=0 then
msgbox "输入的数据组成等边三角形!"
esleif a=b or a=c or b=c then
msgbox "输入的数据组成等腰三角形!"
else
msgbox "输入的数据组成一般三角形!"
end if
数学不是很好....
任何两个数加起来大于第三个，判断一下就行了