VB编程的一道小题,请会的帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:49:24
编写一个过程,对任意三个三角形边长数,判断它们是否组成一个三角形,如果能组成三角形,输出三角形的类型(普通三角型或直角三角形).
是用VB编写大哥

Private Function triType(a, b, c) As Integer
If a >= b Then
maxl = a: minl1 = b
Else
maxl = b: minL = a
End If
If maxl > c Then
minl2 = c
Else
maxl = c: minl1 = a: minl2 = b
End If
'如果小边之和不打于第三边，则不能构成三角形
If minl1 + minl2 <= maxl Then triType = 0: Exit Function
Select Case minl1 ^ 2 + minl2 ^ 2
Case Is > maxl ^ 2
triType = 1 '锐角三角形
Case Is = maxl ^ 2
triType = 2 '直角三角形
Case Is < maxl ^ 2
triType = 3 '钝角三角形
End Select
End Function

很简单啊~~
两边之和大于第三边！两边之差小于第三边！
如果成立则能组成三角形啊！

你等6--8天，我帮你攻克它