菜鸟求教:1,2,3,4,5为边长 可形成多少个三角形

以1,2,3,4,5为边长 可形成多少个三角形，要怎样算出来 ?以下代码算出来的结果会包含 一些重复的三角形 如A=2，B=2，C=3和A=2，B=3，C=2以及A=3、B=2，C=2是表示同一个三角形 ,要怎样处理? Dim i, j, k, s As Short For i = 1 To 5 For j = 1 To 5 For k = 1 To 5 If i + j >= k And i + k >= j And j + k >= i Then s = s + 1 End If Next Next Next MsgBox("可形成的三角形共有" & s & "个")