菜鸟求教: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 & "个")
