必须先升序,再降序,才能肯定获取到最大值:
Dim lst As New List(Of Integer)lst.Add(1)lst.Add(3)lst.Add(2)lst.Sortlst.ReverseMessageBox.Show(lst(0))
或者:
Dim lst As New List(Of Integer)lst.Add(1)lst.Add(3)lst.Add(2)lst.SortMessageBox.Show(lst(lst.Count - 1))