怎么两个数组合并一组数，由大到小排列 vb

定义第三个数组，先把其中一个数组写到第三个中，再把第二个数组添加到第三个尾部，再对第三个数组排序。
如：
Private Sub Command3_Click()
Dim a(1 To 5), b(1 To 6), c(1 To 11), i, j As Integer
For i = 1 To 5
a(i) = i
Print a(i);
Next
Print
For i = 1 To 6
b(i) = i + 6
Print b(i);
Next
Print
For i = 1 To 5
c(i) = a(i)
Next
For i = 1 To 6
c(i + 5) = b(i)
Next
For i = 1 To 11
Print c(i);
Next
End Sub

建议看下选择排序的算法