我正在尝试在矩阵中创建一个随机数生成器,但没有重复项。我可以创建随机性,但不是唯一性,是否有人有任何想法?
Sub makeInitialSolution(Sol() As Integer, numSlots As Integer, numRooms As Integer, numExams As Integer)
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
Sol(i, j) = Int((8 - 1 + 1) * Rnd + 1)
Next j
Next i
Sol(i - 1, j - 1) = -1
End Sub