猜数字游戏（有待进一步完善，请给点建议）

aoe1981 · 发表于 2014-11-16 12:42

还有一个问题就是：榜单中如果发现重名，是否应当去重后保留该名称下的最佳成绩？
不知专业游戏中是否会这样考虑？本人玩游戏经验不多……
估计这样会使代码很长一些的，其实际效果可能不太佳吧……
不过，可以想到的缺点是：一个人如果做了10次7步完成的记录的话，则该人便占据了榜单的全部，即使有他人后来也做出了7步推测，则依我的代码的排序原则，相同数据不交换，也是永远也进不了榜单的……如果交换改成：

If drr(i, 2) >= drr(j, 2) Then

复制代码

则最后进来的总是后来者居上，位居榜单第1了……
不知后面的方案好不好，估计，这样下去，会更有激励性一些，榜单也会时常有更新的感觉……呵呵

小游戏透着大道理，麻雀虽小，五脏俱全。

aoe1981 · 发表于 2014-11-16 12:50

　　下面是一组耍赖测试：
　　榜单被一个占满：
　　 360截图-17305674.jpg

　　方法：
　　

　　再行有其他人1步过关时：
　　 360截图-17330073.jpg

　　榜单依旧：
　　

　　看来需要更正，那怕降低排序效率，也应该让相同数据挪挪位置！！！

aoe1981 · 发表于 2014-11-16 12:52

　　这次印证了我的想法：
　　 360截图-17578988.jpg

　　后来者居上了……
　　排序代码改成了：

If drr(i, 2) >= drr(j, 2) Then

复制代码

　　加了一个等号，>变成了>=……

aoe1981 · 发表于 2014-11-16 13:10

本帖最后由 aoe1981 于 2014-11-16 13:15 编辑

不敢轻言“彻底”，“眼前有景道不得，崔颢题诗在上头”，大侠lee1892提出的令人难以捉摸的问题还在那晾这哩……唉，惭愧惭愧……诸君共同努力吧！！！

您的这句话：“问题总是有的，感觉vba侧重于应用吧，有些侧重于算法的，不一样的 ”，真想给您送花，点醒了我最近的疑惑！！！

算了，您还有很多好的帖子，到时，在其他的帖子中一并给您送吧！！！

yjh_27 · 发表于 2014-11-21 17:31

没做排名榜

l沙漠中的绿洲f · 发表于 2017-1-17 05:56

怎么打不开呀？

liulang0808 · 发表于 2017-1-17 06:00

l沙漠中的绿洲f 发表于 2017-1-17 05:56
怎么打不开呀？

附件应该没有问题的

l沙漠中的绿洲f · 发表于 2017-1-17 07:50

liulang0808 发表于 2017-1-17 06:00
附件应该没有问题的

我的是Excel2007，是不是这个原因

Moneky · 发表于 2018-5-17 08:23

本帖最后由 Moneky 于 2018-5-17 08:25 编辑

也分享一个本人的猜数游戏吧
http://club.excelhome.net/thread-742156-1-1.html

zopey · 发表于 2019-9-20 15:31

古有7步成诗

http://club.excelhome.net/thread-1485183-2-1.html

		自动登录	找回密码
密码			免费注册

[讨论] 猜数字游戏（有待进一步完善，请给点建议）

点评

点评

点评

点评

评分