vb.net 2010下求最大值、最小值及两种排序方法

两种排序方法"/>

vb.net 2010下求最大值、最小值及两种排序方法

算法：最大值，最小值及位置
　　Dim A%() = {8, 6, 9, 3, 2, 7}
        Dim intMin%, intPos%, i%
        intMin = A(0)　　　‘最小值’
        intPos = 0　　　　　‘位置’
        For i = 1 To 5
            If A(i) < intMin Then
                intMin = A(i)
                intPos = i
            End If
        Next
        Debug.Print(intMin & " " & intPos)
    End Sub
算法：排序——选择法
        Dim xx%() = {18, 6, 9, 13, 2, 7}
　　　　Dim i As Integer, j As Integer
        For i = 0 To 4
            For j = i + 1 To 5
                ‘“>”从小到大排列，XX(1)最小
                If xx(i) > xx(j) Then
                    Swap(xx(i), xx(j))
                End If
            Next j
        Next i
        For i = 0 To 5
            Label1.Text &