请问在对数组排序的同时如何得到最大值和最小值在原来数组中的位置？

Question

谢谢，比如冒泡排序法中
Sub BubbleSort(List() As Double)
Dim First As Double, Last As Double
Dim i As Integer, j As Integer
Dim Temp As Double
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i) > List(j) Then
Temp = List(j)
List(j) = List(i)
List(i) = Temp
End If
Next j
Next i
End Sub
他排序后的数组替换了原来的数组，那如何得到最大值和最小值在原来数组中的位置呢？
其他排序方法呢？谢谢大家！

Answer 1

你列出的这段代码是交换法，不是冒泡法。在i=first,j=first+1 to last这次循环中，已经遍历了数组中所有的元素，可以在这次遍历时设置变量，记录最大值和最小值的位置。