在Visual Basic（VB）中，有多种方法可以对数据进行排序。以下是一些常用的排序方法及其示例代码：
冒泡排序
冒泡排序是一种简单的排序算法，通过重复地比较相邻元素并交换它们（如果顺序错误）来工作。这个过程会一直重复，直到整个数组排序完成。
```vb
Private Sub Command1_Click（）
Dim Data（） As Integer
Data = Array（5, 3, 8, 1, 2）
For i = LBound（Data） To UBound（Data） - 1
For j = LBound（Data） To UBound（Data） - i
If Data（j） > Data（j + 1） Then
Temp = Data（j）
Data（j） = Data（j + 1）
Data（j + 1） = Temp
End If
Next j
Next i
For Each num As Integer In Data
Print num
Next
End Sub
```
选择排序
选择排序每次从待排序的数据元素中选出最小（或最大）的一个元素，存放在序列的起始位置，直到全部待排序的数据元素排完。
```vb
Private Sub Command1_Click（）
Dim Data（） As Integer
Data = Array（5, 3, 8, 1, 2）
For i = LBound（Data） To UBound（Data） - 1
Dim MinIndex As Integer = i
For j = i + 1 To UBound（Data）
If Data（j） < Data（MinIndex） Then
MinIndex = j
End If
Next j
If MinIndex <> i Then
Temp = Data（i）
Data（i） = Data（MinIndex）
Data（MinIndex） = Temp
End If
Next i
For Each num As Integer In Data
Print num
Next
End Sub
```
插入排序
插入排序将数组分为已排序和未排序两部分，每次从未排序部分取出一个元素，插入到已排序部分的正确位置。
```vb
Private Sub Command1_Click（）
Dim Data（） As Integer
Data = Array（5, 3, 8, 1, 2）
For i = 1 To UBound（Data）
Dim Key As Integer = Data（i）
Dim j As Integer
j = i - 1
While j >= 0 And Data（j） > Key
Data（j + 1） = Data（j）
j = j - 1
Wend
Data（j + 1） = Key
Next i
For Each num As Integer In Data
Print num
Next
End Sub
```
快速排序
快速排序是一种高效的排序算法，通过选择一个支点（pivot）将数组分为两部分，然后递归地对这两部分进行排序。
```vb
Private Sub Command1_Click（）
Dim Data（） As Integer
Data = Array（5, 3, 8, 1, 2）
QuickSort Data, 0, UBound（Data） - 1
For Each num As Integer In Data
Print num
Next
End Sub
Sub QuickSort（arr（） As Integer, low As Integer, high As Integer）
If low < high Then
Dim pi As Integer = Partition（arr, low, high）
QuickSort arr, low, pi - 1
QuickSort arr, pi + 1, high
End If
End Sub
Function Partition（arr（） As Integer, low As Integer, high As Integer） As Integer
Dim pivot As Integer = arr（high）
Dim i As Integer = low - 1
For j = low To high - 1
If arr（j） < pivot Then
i = i + 1
Temp = arr（i）
arr（i） = arr（j）
arr（j） = Temp
End If
Next j
Temp = arr（i + 1）
arr（i + 1） = arr（high）
arr（high） = Temp
Return i + 1
End Function
```
使用内置的Array.Sort方法
VB提供了内置的`Array.Sort