神机妙算，猜你姓氏__VBA精简版

lk987655 · 发表于 2011-4-23 21:04

又做了一个小软件，可以猜你的姓氏，大家可以看看，源码公开，中间的姓氏源表是我编的一个软件自动产生的，不是手工输入进去的。如果大家需要的话，可以与我联系，完全免费。希望与高手交流
纯属娱乐

神机妙算猜你姓-VBA精简版.rar (40.06 KB, 下载次数: 949)

jjchan2005 · 发表于 2011-4-23 21:39

强,顶一个

wk0227 · 发表于 2011-4-23 22:40

很强大，顶！！

120HYH · 发表于 2011-4-23 23:47

谢谢。学习下载了。请发120HYH@163.COM

blackttea1 · 发表于 2011-4-24 09:44

谢谢。学习下载了。请发gongqiulin@163.COM

少如 · 发表于 2011-4-24 10:09

谢谢。学习下载了。

学良 · 发表于 2011-4-24 10:12

很想学习学习。请发 ABCDE-1947@163.com
谢谢!!!

lpxxx · 发表于 2011-4-24 10:16

下载了，很想学习学习。请发cqlpxj@163.com
谢谢!!!

zhounie · 发表于 2011-4-24 11:43

实际上，这就是一个二进制原理做成的。表1赋值2的0次方，即1，表2赋值2的1次方，即2，表3赋值2的2次方，即4，……，表8赋值2的7次方，即128。为了制作方便，也为了美观，表的个数也是2的几次方（比如总表为1张，2张，4张，8张等）才能使得每张表的姓的个数基本相同。比如说做9张表的话，那么第九张表的姓会很少，或说只有10个姓可供填写，与其它表格的姓的个数反差太大。因此，要做就最好做成16张才美观。当然，这可以说是猜姓氏，表做得很多的话，也可以说成，免开尊口，就知你想的是一个什么字。等等。至于这个字要填写在哪张表，就看这个字的在辅助列（也就是T列）中的位置，如本例中的“成”字在辅助列的第17行，也就是“成”字被赋值为17，而17的二进制数是：10001，二进制每个数代表一个表，因为这里有8张表，则这个二进制数可写成八位数是00010001，如果把这个二进制数反过来写，即为10001000，即第1，第5位置上有1，即这个“成”字在第1张表和第5张表中。再比如“周”字在229，它的二进制数是11100101，反过来写是10100111，这个反过来写的二进制中1处在在第1，第3，第6，第7，第8的位置，所以“周”字填写在第1，第3，第6，第7，第8张表中。其余类推。

[ 本帖最后由 zhounie 于 2011-4-24 14:39 编辑 ]

lk987655 · 发表于 2011-4-24 20:46

你分析的很到位，很详细，关于这个程序的原理，我在使用说明中也简单提到了。想请讨论一下，三进制或者其他进制不知道有没有类似的应用呢？我正在考虑这个问题。

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

神机妙算，猜你姓氏__VBA精简版

评分

版主辛苦了。

回复 9楼 zhounie 的帖子

最新热点 /1