vb.net 写了个插入排序和冒泡排序

在VB.NET编程环境中，我们可以实现不同的排序算法来对数据进行有序排列。本示例主要探讨了两种基础且经典的排序算法：冒泡排序和插入排序。这两种算法虽然在处理大规模数据时效率较低，但对于理解排序原理和初级编程学习来说非常有价值。 ### 冒泡排序（Bubble Sort） 冒泡排序是一种简单的排序算法，它重复地遍历待排序的数列，一次比较两个元素，如果他们的顺序错误就把他们交换过来。遍历数列的工作是重复地进行直到没有再需要交换，也就是说该数列已经排序完成。这个算法的名字由来是因为越小的元素会经由交换慢慢“浮”到数列的顶端，就像水中的气泡最终会上浮到水面一样。 **VB.NET 实现冒泡排序的步骤：** 1. 创建一个数组，存储待排序的数据。 2. 设置一个标志变量`isSwapped`，用于检测在某一轮遍历中是否有元素交换位置，如果没有交换，则提前结束排序。 3. 使用两层循环，外层循环控制遍历次数，内层循环用于相邻元素之间的比较和交换。 4. 在内层循环中，如果前一个元素大于后一个元素，就交换它们的位置。 5. 检查`isSwapped`，如果没有发生交换，说明数组已排序，提前结束外层循环。 ```vbnet Sub BubbleSort(arr() As Integer) Dim isSwapped As Boolean = True Dim temp As Integer For i As Integer = 0 To arr.Length - 2 isSwapped = False For j As Integer = 0 To arr.Length - 2 - i If arr(j) > arr(j + 1) Then temp = arr(j) arr(j) = arr(j + 1) arr(j + 1) = temp isSwapped = True End If Next If Not isSwapped Then Exit For ' 如果一轮下来没有交换，说明已经排序完成 Next End Sub ``` ### 插入排序（Insertion Sort） 插入排序的工作原理是通过构建有序序列，对于未排序数据，在已排序序列中从后向前扫描，找到相应位置并插入。插入排序在实现上，通常采用in-place排序（即只需用到O(1)的额外空间的排序），因而在从后向前扫描过程中，需要反复把已排序元素逐步向后挪位，为最新元素提供插入空间。 **VB.NET 实现插入排序的步骤：** 1. 初始化一个空的已排序区域，将第一个元素视为已排序。 2. 遍历剩余的元素，每次取一个元素，将其与已排序区域的元素依次比较，找到合适的位置插入。 3. 插入元素后，调整已排序区域的顺序，确保其始终是有序的。 ```vbnet Sub InsertionSort(arr() As Integer) For i As Integer = 1 To arr.Length - 1 Dim key As Integer = arr(i) Dim j As Integer = i - 1 While j >= 0 AndAlso arr(j) > key arr(j + 1) = arr(j) j = j - 1 End While arr(j + 1) = key Next End Sub ``` 在VB.NET中，这两种排序算法的实现都非常直观，易于理解。通过实践这些基本排序算法，开发者可以更好地掌握数组操作、循环结构以及条件判断等基础知识，为进一步学习更复杂的算法打下坚实的基础。同时，对于初学者而言，理解这些排序算法的内部工作原理对于提升编程思维能力也大有裨益。