一个数学标题求解

一个数学题目求解
有100个数,每次只取5个数,共取100次,且每个数要重复5次,求解啊这个能解么?

[解决办法]
可以定义5个数组ary1(100) As Integer,每个数组赋值乱序1-100.一次取5个数组值。

Private Sub Form_Load()
Dim ary1(99) As Integer
Dim ary2(99) As Integer
Dim ary3(99) As Integer
Dim ary4(99) As Integer
Dim ary5(99) As Integer
Dim i As Integer, j As Integer


For i = 1 To 100
j = i - 1
ary1(j) = i
ary2(j) = i
ary3(j) = i
ary4(j) = i
ary5(j) = i
Next

CopyRndArray ary1
CopyRndArray ary2
CopyRndArray ary3
CopyRndArray ary4
CopyRndArray ary5

For i = 0 To 99
Debug.Print ary1(i) & "," & ary2(i) & "," & ary3(i) & "," & ary4(i) & "," & ary5(i)
Next

End Sub

'乱序数组
Sub CopyRndArray(ByRef aryValue() As Integer)
Dim aryTemp() As Integer
Dim i As Long
Dim Temp As New Collection
Dim iTemp As Long
Dim iLBound As Integer
Dim iUBound As Integer

Dim sTemp As String

For i = LBound(aryValue) To UBound(aryValue)
Temp.Add i
Next

iLBound = LBound(aryValue)
iUBound = UBound(aryValue)

ReDim aryTemp(iLBound To iUBound)

Randomize
For i = iLBound To iUBound
iTemp = Int(Temp.Count * Rnd) + 1 'Collection从1开始
aryTemp(i) = aryValue(Temp(iTemp))
Temp.Remove iTemp
'sTemp = sTemp & aryTemp(i) & vbCrLf
Next
 
For i = LBound(aryValue) To UBound(aryValue)
aryValue(i) = aryTemp(i)
Next

'Debug.Print sTemp 可放到excel排序查看
End Sub