741
社区成员
发帖
与我相关
我的任务
分享
Private Const K = 5
Private Const N = 100
Private Sub Command1_Click()
Dim i As Integer
'Prerare data
List1.Clear
Randomize
For i = 1 To N
List1.AddItem Rnd * 1000
Next i
'Find Kth Largest Number
List2.Clear
For i = 0 To N - 1
If List2.ListCount < K Then
List2.AddItem List1.List(i)
Else
If List1.List(i) > List2.List(0) Then
List2.RemoveItem 0
List2.AddItem List1.List(i)
End If
End If
Next i
End Sub
List2.List(0) 就是问题的解。