在VB（Visual Basic）中，对十个数进行排序可以通过多种算法实现，例如选择排序、冒泡排序、插入排序、快速排序等。以下是几种常见排序算法的VB代码示例：
选择排序
选择排序是一种简单直观的排序算法，其基本思想是每次从未排序的部分选择最小（或最大）的元素，将其放到已排序部分的末尾。
```vb
Private Sub Command1_Click（）
Dim a（10） As Integer
For i = 1 To 10
a（i） = Int（Rnd * 90） + 10 ' 生成10个10到99之间的随机数
Next i
For i = 1 To 9
For j = i + 1 To 10
If a（i） > a（j） Then
Dim temp As Integer
temp = a（i）
a（i） = a（j）
a（j） = temp
End If
Next j
Next i
For i = 1 To 10
Print a（i）
Next i
End Sub
```
冒泡排序
冒泡排序是另一种简单的排序算法，通过重复遍历要排序的数列，一次比较两个元素，如果它们的顺序错误就把它们交换过来。
```vb
Private Sub Command1_Click（）
Dim a（10） As Integer
For i = 1 To 10
a（i） = Int（Rnd * 90） + 10 ' 生成10个10到99之间的随机数
Next i
For i = 1 To 9
For j = 1 To 10 - i
If a（j） > a（j + 1） Then
Dim temp As Integer
temp = a（j）
a（j） = a（j + 1）
a（j + 1） = temp
End If
Next j
Next i
For i = 1 To 10
Print a（i）
Next i
End Sub
```
插入排序
插入排序是将待排序的元素按大小顺序逐个插入到已排序的有序序列中。
```vb
Private Sub Command1_Click（）
Dim a（10） As Integer
For i = 1 To 10
a（i） = Int（Rnd * 90） + 10 ' 生成10个10到99之间的随机数
Next i
For i = 2 To 10
Dim key As Integer
key = a（i）
Dim j As Integer
j = i - 1
While j >= 0 And a（j） > key
a（j + 1） = a（j）
j = j - 1
Wend
a（j + 1） = key
Next i
For i = 1 To 10
Print a（i）
Next i
End Sub
```
快速排序
快速排序是一种高效的排序算法，采用分治法策略，通过一个基准元素将数组分为两个子数组，然后递归地对子数组进行排序。