[已解决]大家来说说随机中的乱

Select

1.rar (8.14 KB, 下载次数: 11)

2011-10-27 18:05 上传

点击文件名下载附件

A1:A9是数据源
B1:B9是输出区

我们经常遇到这样需要打乱的问题。假如A1和A9的值交换，对于交换前来说，算是被打乱了，但显然还不够乱。
请问：怎样确定足够"乱"，或者说达到了"乱"的标准？因为这关系到如何来编写。
谢谢！

补充：可以看作是一道名词解释题{:011:}

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-27 19:35

这样行不行？永远不会回到原位置！

1. Sub test()
   
2.     Dim n, ARR, BRR, x, Y, P
   
3.     n = 9
   
4.     ARR = Range("A1").Resize(n, 1)
   
5.     BRR = Range("A1").Resize(n, 1)
   
6.     For Y = 1 To n
   
7. 100:
   
8.         x = Int(Rnd() * n + 1) 'x值域[1,n]
   
9.         If ARR(Y, 1) = BRR(x, 1) Then GoTo 100
   
10.         If ARR(x, 1) = BRR(Y, 1) Then GoTo 100
    
11.            P = BRR(Y, 1)
    
12.            BRR(Y, 1) = BRR(x, 1)
    
13.            BRR(x, 1) = P
    
14.     Next
    
15.     Range("b1").Resize(n, 1) = BRR
    
16. End Sub

复制代码

跳转到最佳答案楼层

mxg825

数据多就足够乱，如果不乱再运行一次！

Select

mxg825 发表于 2011-10-27 18:41
数据多就足够乱，如果不乱再运行一次！

能不能这么说呢？
例如1楼这里有9个数，如果每个都至少挪过1次窝（可能后来又被挪回来原位），就算够乱？！
有没有一个标准可以界定？参照什么的？

mxg825

你意思是
必须挪窝，挪回来，也不行！

Select

对于这种无条件打乱型问题，我就是不知道这个标准，或者说这个度，到什么程度算够乱

Select

不知有没有国际通用标准{:1312:}

mxg825

这样行不行？永远不会回到原位置！

1. Sub test()
   
2.     Dim n, ARR, BRR, x, Y, P
   
3.     n = 9
   
4.     ARR = Range("A1").Resize(n, 1)
   
5.     BRR = Range("A1").Resize(n, 1)
   
6.     For Y = 1 To n
   
7. 100:
   
8.         x = Int(Rnd() * n + 1) 'x值域[1,n]
   
9.         If ARR(Y, 1) = BRR(x, 1) Then GoTo 100
   
10.         If ARR(x, 1) = BRR(Y, 1) Then GoTo 100
    
11.            P = BRR(Y, 1)
    
12.            BRR(Y, 1) = BRR(x, 1)
    
13.            BRR(x, 1) = P
    
14.     Next
    
15.     Range("b1").Resize(n, 1) = BRR
    
16. End Sub

复制代码

上清宫主

两个贴子一样？

Select

上清宫主 发表于 2011-10-27 20:23
两个贴子一样？

不一样，这个是求概念。那个是求方法。
如果发在1个贴里，就是2个问题，到时怕不好分最佳

上清宫主

可用rnd，也可取rnd某些位来重新组合，甚至用timer的某些位来组合，等等之类的构成随机
不过，这也是仁者见仁智者见智的，不好说
另据说没有完全意义上的随机。