用VB.net 写冒泡排序

冒泡排序是一种简单的排序算法，它通过比较相邻的元素并交换它们来排序。以下是使用 VB.net 编写冒泡排序的示例代码：

Private Sub BubbleSort(ByVal arr() As Integer)
Dim i As Integer, j As Integer
Dim temp As Integer
For i = To arr.Length - 2
For j = To arr.Length - i - 2
If arr(j) > arr(j + 1) Then
temp = arr(j + 1)
arr(j + 1) = arr(j)
arr(j) = temp
End If
Next j
Next i
End Sub

在这个示例中，我们使用了一个双重循环来比较和交换数组中的元素。外部循环控制比较的轮数，内部循环控制每一轮比较的次数。如果相邻的元素顺序不正确，就交换它们的位置。最终，数组中的元素将按升序排列。