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天，我帮你攻克它