与vb排序有关

来源：百度知道 编辑：UC知道 时间：2024/05/27 14:34:42
现有七个人，A、B、C、D、E、F、G。
请用vb编写一个程序让他们排序，不是升序、降序，就是随机排序，并将所有的排序结果也用vb程序编写打印在窗体上。
我想了一下，七个人排序，就是一个排列的问题。总共有7！=5040种排法，要想把他们打印出来。能否用什么语句加快运算的速度?
望高手赐教。给小弟一点思路和提示，最好能给点关键的东西。例如：四个人的随机排序的代码。
非常感谢！
能否给个代码，调试好了的。vb6.0的。谢谢了，给个三个人的也行。

Private Type Rect
Flag As String
Arr(6) As String
End Type

Dim Me_rect(25) As Rect

Public Function setStr(ByVal ArrLen As Integer) As Variant
'对数组的每个元素赋值(值为字符A-Z)

Dim I As Integer
Dim intSends As Integer '种子源
Dim ArrTemp As Variant

intSends = 65
ReDim ArrTemp(ArrLen)
For I = 0 To ArrLen
intSends = 65 + I
ArrTemp(I) = Chr(intSends)
Next

setStr = ArrTemp

End Function

Public Function LstArr(ByVal ArrSource As Variant) As Variant
'输出排列的数组

Dim LastArr() As Variant '存放最终形成的数组
Dim MidArr() As Variant '存放从源数组中取出一个数后，剩下的数组组成的数组
Dim ArrLen As Integer

Dim ArrFlag() As Variant '数组标志
Dim strGet As String

Dim I, J, K, m, n, g As Integer

ArrLen = UBound(ArrSource)<