在Visual Basic（VB）中，有多种排序方法可以实现。以下是一些常见的排序算法及其简要说明：
选择排序（Selection Sort）
原理：每次从未排序的数据元素中选出最小（或最大）的一个元素，存放在序列的起始位置，直到全部待排序的数据元素排完。
代码示例：
```vb
Private Sub SelectionSort（ByRef arr（） As Integer）
Dim i As Integer, j As Integer, minIndex As Integer
For i = 0 To UBound（arr） - 1
minIndex = i
For j = i + 1 To UBound（arr）
If arr（j） < arr（minIndex） Then
minIndex = j
End If
Next j
If minIndex <> i Then
arr（i）, arr（minIndex） = arr（minIndex）, arr（i）
End If
Next i
End Sub
```
冒泡排序（Bubble Sort）
原理：通过不断交换相邻的不正确顺序元素来逐步调整数组，直到整个数组有序。
代码示例：
```vb
Private Sub BubbleSort（ByRef arr（） As Integer）
Dim i As Integer, j As Integer
For i = 0 To UBound（arr） - 1
For j = 0 To UBound（arr） - i - 2
If arr（j） > arr（j + 1） Then
arr（j）, arr（j + 1） = arr（j + 1）, arr（j）
End If
Next j
Next i
End Sub
```
插入排序（Insertion Sort）
原理：将数组分为已排序和未排序两部分，逐个将未排序部分的元素插入到已排序部分的适当位置。
代码示例：
```vb
Private Sub InsertionSort（ByRef arr（） As Integer）
Dim i As Integer, j As Integer
For i = 1 To UBound（arr）
Dim key As Integer = arr（i）
j = i - 1
While j >= 0 And arr（j） > key
arr（j + 1） = arr（j）
j = j - 1
Wend
arr（j + 1） = key
Next i
End Sub
```
快速排序（Quick Sort）
原理：通过选择一个基准元素，将数组分为两部分，一部分小于基准，一部分大于基准，然后递归地对这两部分进行排序。
代码示例：
```vb
Private Sub QuickSort（ByRef arr（） As Integer, ByVal low As Integer, ByVal high As Integer）
If low < high Then
Dim pivotIndex As Integer = Partition（arr, low, high）
QuickSort（arr, low, pivotIndex - 1）
QuickSort（arr, pivotIndex + 1, high）
End If
End Sub
Private Function Partition（ByRef arr（） As Integer, ByVal low As Integer, ByVal 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
arr（i）, arr（j） = arr（j）, arr（i）
End If
Next j
arr（i + 1）, arr（high） = arr（high）, arr（i + 1）
Return i + 1
End Function
```
归并排序（Merge Sort）
原理：将数组分为两半，分别对两半进行排序，然后将排序后的两半合并成一个有序数组。
代码示例：