Need help recoding a function

[Bhavna]

Hi all

I have this function that i want to edit. At present this function takes an arraylist and retrieves the index of the smallest interger contained in the arraylist
What i want to do is modify this so that it retrieves the top 10 indexes of the smallest to largest intergers in a arraylist

i.e if arraylist1 contains (2, 4, 1, 3, 1, 5, 1, 0
i want the function to return the indexes in order of the smallest to the largest. In this case it would be: 7, 2, 4, 6, 0, 3, 1,

Public Function GetIndexOfSmallestNumber(ByVal a As ArrayList) As Int3
Dim nSmallestValue As Int3
Dim nSmallestIndex As Int3

nSmallestValue = a.Item(0
nSmallestIndex =
For i = 1 To a.Count -
If a.Item(i) < nSmallestValue The
nSmallestIndex =
nSmallestValue = a.Item(i
End I
Next
Return nSmallestInde
End Functio

Can anyone offer any assistance?

[Cor]

Hi Bhavna,

It is nice that you try to use that sort from the time of the first sample
Pascal programs, but maybe it is better to have a look at this.

It looks difficult, but I think that has more to do because of the way they
wrote the sample than the rest.
http://msdn.microsoft.com/library/de...sSortTopic.asp

I hope this helps?

Cor