aspx二维数据排序代码(c#,vb.net)

Class Program
    Private Shared Sub Main(args As String())
        '冒泡排序 循环总共执行次数
        Dim BubbleSortCount As Integer = 0
        '改进的冒泡排序 循环总共执行次数
        Dim ImprovedBubbleSortCount As Integer = 0
        '冒泡排序所需的临时变量
        Dim temp As Integer
        '一个交错二维数组，用于保存测试数据
        Dim arr2 As Integer()() = New Integer(999)() {}
        '创建一个随机类，用于生成随机测试数据
        Dim r As New Random()
        '通过嵌套的for循环，使用上面的随机数对象生成随机测试数据
        For i As Integer = 0 To arr2.Length - 1
            '新建一个一维数组
            Dim arr As Integer() = New Integer(9) {}
            For j As Integer = 0 To arr.Length - 1
                '通过调用随机类对象 r 的Next方法，随机生成1000以内的测试数据
                arr(j) = r.[Next](1000)
            Next
            '将包含测试数据的一维数组作为二维数组的元素
            arr2(i) = arr
        Next
        '另外保存一份相同的测试数据，用于测试改进的冒泡排序算法效率
        Dim ImprovedArr2 As Integer()() = New Integer(999)() {}
        For i As Integer = 0 To arr2.Length - 1
            ImprovedArr2(i) = New Integer(9) {}
            arr2(i).CopyTo(ImprovedArr2(i), 0)
        Next
        '针对二维数组的每个一维数组元素进行冒泡排序，也就是说测试冒泡排序1000次
        For h As Integer = 0 To arr2.Length - 1
            '冒泡排序
            For i As Integer = 1 To arr2(h).Length - 1
                For j As Integer = 0 To arr2(h).Length - 2
                    If arr2(h)(j) > arr2(h)(j + 1) Then
                        '将每相邻的两个数相比
                        temp = arr2(h)(j)
                        arr2(h)(j) = arr2(h)(j + 1)
                        arr2(h)(j + 1) = temp
                    End If
                Next
                '记录每一轮排序
                BubbleSortCount += 1
            Next
        Next
        Console.WriteLine("对1000个长度为10的随机数组使用【冒泡排序算法】排序总次数：/t" & BubbleSortCount)

        '针对二维数组的每个一维数组元素进行【改进的冒泡排序】，也就是说测试【改进的冒泡排序】1000次
        Dim flag As Boolean = True
        For h As Integer = 0 To ImprovedArr2.Length - 1
            '使用改进的冒泡排序进行测试
            For i As Integer = 1 To ImprovedArr2(h).Length - 1
                '每轮排序结束后都复位标识位
                flag = True
                For j As Integer = 0 To ImprovedArr2(h).Length - 2
                    '将每相邻的两个数相比
                    If ImprovedArr2(h)(j) > ImprovedArr2(h)(j + 1) Then
                        temp = ImprovedArr2(h)(j)
                        ImprovedArr2(h)(j) = ImprovedArr2(h)(j + 1)
                        ImprovedArr2(h)(j + 1) = temp

                        flag = False
                    End If
                Next
                ImprovedBubbleSortCount += 1
                If flag Then
                    Exit For
                End If
            Next
        Next
        Console.WriteLine("对1000个长度为10的随机数组使用【改进的冒泡排序算法】排序总次数：/t" & ImprovedBubbleSortCount)
    End Sub
End Class