以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 & "个")

Option Explicit

Private Sub Command1_Click() Dim i, j, k, s As Long 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 AddToList Sort(i, j, k) End If Next Next Next MsgBox ("可形成的三角形共有" & List2.ListCount & "个") End Sub

'排序函数，利用了List1，设计时将List1的Sorted属性设为True Private Function Sort(x, y, z) As String List1.Clear List1.AddItem x List1.AddItem y List1.AddItem z Sort = List1.List(0) & "-" & List1.List(1) & "-" & List1.List(2) End Function

'将组合添加到列表框，若已经存在则不添加 Private Sub AddToList(str As String) Dim i As Long For i = 0 To List2.ListCount If List2.List(i) = str Then Exit Sub End If Next List2.AddItem str End Sub

[此贴子已经被作者于2005-4-1 21:51:41编辑过]

版主的做法错误了,并没有排除掉一些重复的三角形
如5-4-5和4-5-5,5-5-4是同一三角形

'排序函数，利用了List1，设计时将List1的Sorted属性设为True 看见这句话吗？必须将List1的Sorted属性在设计状态下设为True（运行时是只读的）

如果不想通过List1来排序，用以下函数也行。 Private Function Sort(x As Integer, y As Integer, z As Integer) As String Dim temp As Integer

If x > y Then temp = x x = y y = temp End If If y > z Then temp = y y = z z = temp End If If x > y Then temp = x x = y y = temp End If Sort = x & "-" & y & "-" & z End Function