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 &= xx(i) & Space(3)
        Next i
算法：排序——冒泡法
　　 Dim xx%() = {8, 6, 9, 3, 2, 7}
 　　Dim i%, j%
　　 Label1.Text = "排序前: 8, 6, 9, 3, 2, 7 " & vbCrLf & "排序后 ："
        For i = 0 To 3
            For j = 0 To 4 – i
                 ‘“>”从小到大排列，XX(1)最小
                If xx(j) > xx(j + 1) Then
                    Swap(xx(i), xx(j + 1))
                End If
            Next
        Next
        For i = 0 To 5
            Label1.Text &= xx(i) & "，"
        Next