|
发表于 2017-5-4 21:26
|
显示全部楼层
本楼为最佳答案
- Sub aaa()
- Dim ar(1 To 10, 1 To 5), br(1 To 10), i&, j&, t
- Dim b As Boolean, b1 As Boolean, n, m
- For i = 1 To 5
- For j = 1 To 10
- br(j) = j - 1
- Next
- For j = 10 To 1 Step -1
- t = Int(Rnd * j + 1)
- ar(j, i) = br(t)
- br(t) = br(j)
- Next j
- If i > 1 Then
- b = False
- Do While b = False
- b1 = False
- For n = 1 To 10
- For m = 1 To i - 1
- If ar(n, i) = ar(n, m) Then
- b1 = True
- For j = 1 To 10
- br(j) = j - 1
- Next
- For j = 10 To 1 Step -1
- t = Int(Rnd * j + 1)
- ar(j, i) = br(t)
- br(t) = br(j)
- Next j
- End If
- Next m
- Next n
- If b1 = False Then b = True
- Loop
- End If
- Next i
- [b2:f11] = ar
- End Sub
复制代码
|
评分
-
查看全部评分
|