JFF的BASIC好像被人笑话了?那就拿EXCEL (2007)来模拟吧:


所有跟贴·加跟贴·新语丝读书论坛

送交者: Amsel 于 2010-01-21, 15:55:37:

一、无重名的情况:
A1到L1这12个单元格分别输入:
=RANDBETWEEN(1,4)
=RANDBETWEEN(1,3)
=RANDBETWEEN(1,2)
=A2
=IF(B2<A2,B2,B2+1)
=C2+IF(C2<MIN(D2,E2),0,IF(C2+1<MAX(D2,E2),1,2))
=1+2+3+4-D2-E2-F2
=CHAR(D2+64)
=CHAR(E2+64)
=CHAR(F2+64)
=CHAR(G2+64)
=IF(AND(H2<I2,I2<J2,J2<K2),1,0)

单元格L1输入
=SUM(L2:L10001)/COUNT(L2:L10001)

然后把A2到L2这一行往下复制10000行,L1就是计算结果(随机产生符合字母顺序序列的比例)

二、有重名的情况,比较简单:
单元格A1输入NameMax
单元格B1输入100 (名字库的名字个数)
A2到E2:
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=RANDBETWEEN(1,$B$1)
=IF(AND(A2<=B2,B2<=C2,C2<=D2),1,0)

单元格E1:
=SUM(E2:E10001)/COUNT(E2:E10001)

然后把A2到E2这一行往下复制10000行,E1就是计算结果(随机产生符合字母顺序序列的比例)

试试把B1改成4,10,20,50,就会看到Laoxiao那天说的结果。




所有跟贴:


加跟贴

笔名: 密码: 注册笔名请按这里

标题:

内容: (BBCode使用说明