VB.NET 冒泡排序算法实现 - 代码示例

以下是使用 VB.NET 编写的冒泡排序算法：

Private Sub BubbleSort(ByVal arr() As Integer)
    Dim n As Integer = arr.Length
    Dim i As Integer, j As Integer
    Dim temp As Integer

    For i = 0 To n - 1
        For j = 0 To n - i - 2
            If arr(j) > arr(j + 1) Then
                temp = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = temp
            End If
        Next
    Next
End Sub

在这个算法中，我们首先获取数组的长度。然后使用两个嵌套的循环，外部循环从 0 到 n-1，内部循环从 0 到 n-i-2。

在内部循环中，我们比较当前元素和下一个元素的值。如果当前元素大于下一个元素，我们就交换它们的位置。

最后，当所有的比较和交换都完成时，我们就得到了一个按升序排列的数组。