请求高手，1-22数据分组每组五个数

来源：百度知道 编辑：UC知道 时间：2024/06/15 21:10:17
具体情况是这样的，1-22的22个数，每五个数一组，在每组不重复的情况下，怎么才能全部显示出全部的结果。如：
1、2、3、4、5
17、18、19、20、21、22
…………………………

Function getRnd(i As Integer) As Integer 'È¡1-iÖ®¼äµÄËæ»úÊýÒ»¸ö
Randomize
getRnd = Int(Rnd() * i + 1)
End Function

Function getAllRnd(Counter As Integer, jishu As Integer) As Integer() 'È¡Counter¸ö1-jishuÖ®¼äµÄËæ»úÊý
If (Counter > jishu) Then
MsgBox "Êý×Ö¸öÊý²»ÄÜ´óÓÚ»ùÊý"
Exit Function
End If
ReDim arr(Counter) As Integer
i = 0
Do While i < Counter
arr(i + 1) = getRnd(jishu)
found = False
For x = 1 To i
If arr(x) = arr(i + 1) Then
found = True
Exit For
End If
Next
If Not found Then
i = i + 1