子宏1()
Dim Arr1(1到5)，Arr2(1到120，1到5)
使不規則化
對於i = 1到5
arr 1(I)= Int(Rnd * 11+1)
然後
a = 1
對於i = 1到5
對於j = 1到5
如果j = i，那麽
其他
對於k = 1到5
如果k = i或k = j，則
其他
對於l = 1到5
如果l = i或l = k或l = j，則
其他
對於m = 1到5
如果m = i或m = j或m = k或m = l，則
其他
Arr2(a，1) = Arr1(i)
Arr2(a，2) = Arr1(j)
Arr2(a，3) = Arr1(k)
Arr2(a，4) = Arr1(l)
Arr2(a，5) = Arr1(m)
a = a + 1
如果…就會結束
然後
如果…就會結束
然後
如果…就會結束
然後
如果…就會結束
然後
然後
範圍(單元格(1，" A ")、單元格(120，" E")) = Arr2
末端接頭