027 解读“神奇读心术”！

解读“神奇读心术”！

2007-08-12 19:27:00| 分类： 思绪燃星火——技
https://duxinshu.51240.com/
怎么样？？是不是感觉非常神奇？？呵呵！！下面让我们看看他是怎样做到“猜测”我们的内心世界的~~
解读神奇读心术！！
大家也许都看出来了，这个所谓的读心术是对被测者有一定要求的，其中最值得怀疑的一个要求就是他让我们计算的那个公式！Z=XY-（X+Y）
我们先算出前几个数的数值：
10-（1+0）=9
11-（1+1）=9
12-（1+2）=9
…………
19-（1+9）=9
可以看出10至19算出的结果只有9这一种可能
我们再往下看看：
20-（2+0）=18
21-（2+1）=18
…………
29-（2+9）=18
依次往下推：
30-（3+0）=27
40-（4+0）=36
50-（5+0）=45
…………
大家应该发现了，我们所得到结果都是9的倍数！！而我们回头看看那块神秘的“羊皮纸”图案，是不是凡是9的倍数他们的图案都一样？？我们不管怎么算，结果都是9的倍数，而那张图凡是9的倍数的图案还都一样！结果也就可想而之了……
根据这个例子，我们是否还可以写出一个更好玩的“读心术”游戏呢？？
大家有闲心的话看看鄙人写的这个小程序：

 '声明变量
dim input      '玩家输入的十位
dim num      '计算出个位
dim x      '循环控制变量
enter = chr(10)      '换行
y=10      '循环控制变量
   '获取用户输入
input = inputbox("游戏规则："&enter&"请您随机在10-99中选择一个数，用这个数减去他十位加个位的和，并将算出结果的十位输入到下面，然后我就能猜出你的个位是什么。"&enter&enter&"例如你选择12的话，计算方法就是12-(1+2)=09，那么你就输入0即可。","一个神奇的小游戏","这里输入你算出的十位数")
   '判断输入的合法性
if input < 8 or input > 0 and input <> 886 then
   '合法的话开始循环判断
for x = -9 to 7 step 2
y = y - 1
num = input - x
if num = y then
msgbox ("天灵灵！地灵灵！如果你的十位确实为"&input&"的话，那么你的个位就是……"&enter&enter&"就是: "&num&"  ！！哈哈！俺猜对了吧？")
end if
next   '退出循环
   '否则提示并退出
else
msgbox "请认真输入！您的输入有误！"
end if

只要将其复制到记事本里并保存，然后将后缀名由“txt”改为“vbs”即可运行！！
刚入门的朋友们赶紧试试吧！！