Question

用VB把含5个数的数组按大小排列，并获得其下标

Dim a(4) As Integer
Dim i, min1, imin1，min2,imin2 As Integer
For i = 0 To 4
a(i) = Text1(i).Text
Next
min1 = a(0)
min2=min1
imin1 = 0
imin2 = imin1
For i = 1 To 4
If min1 > a(i) Then
min2=min1
min1 = a(i)
imin2=imin1
imin1 = i
End If
Next
End Sub
这里 min1,imin1表示最小数和最小数的下标
min2,imin2表示最小数和最小数的下标
能不能求出min3,imin3,min4imin4,min5,imin5

Answer 1

可以 你可以 在排序之前 把数组 赋值给 另外一个数组b（） 一一对应 排完序后 用数组 b（）找 下标 就可以了 ！！！！！

Answer 2

最笨的办法：再创建一个数组，里面存放位置，然后一起跟着一起排序。排序完，新建的数组的两端的值就是最值在原数组中的位置。

Answer 3

再加两组计数器，把次大和次小的记下来