Dim a As New List(of Integer)
a .Add(108)
a .Add(95)
a .Add(70)
a .Add(100)
a .Add(1081)
a .Add(905)
a .Add(700)
a .Add(1000)
Dim b As New List(of Integer)
For i As Integer = 0 To a.Count - 1 Step 3
If i + 2 <= a.Count - 1
b.Add(Math.Max(Math.Max(a(i),a(i+1)),a(i+2)))
ElseIf i + 1 <= a.Count - 1
b.Add(Math.Max(a(i),a(i+1)))
Else
b.Add(a(i))
End If
Next
For Each m As Integer In b
Output.Show(m)
Next
至于撤销排序是不能的,另外建一个集合重新添加原来的元素即可