Question

魔术 读心术

今日，我有个朋友和我玩了个魔术。
他叫我系牌堆中选9张牌出来，排成9宫格的样子
然后他叫我心里随便想一张牌（果9只里面的）
最后他就能选出我心里想的那一张牌
全过程他无问我过是否呢张，只是自己筛选，然后就选中我想的牌了
我想问点解距会知道我想的是什么牌？难道他真的看穿我的心？？
试了8次 8次都全部中

Answer 1

　　“读心术”一款有意思的社交游戏。依托Manyou开放平台，社交游戏“读心术”的应用得到了快速的普及。目前，“读心术”已经成为互联网上最流行的社交游戏之一。
　　“读心术”是来源于下面的数学过程，并不是仙术。在“读心术”设计中，设这个数是10a+b，则有10a+b-a-b=9a，在看所有9的倍数都是一个图，而水晶球里显现出的就是这个图。
　　1、如果你心中想了一个数，是一个个位数为A,十位数为B的（A＋10B）。如25＝5＋2×10。
　段键　2：按照读心数的要求，你要把A和B相加:
　　（A+B） 如2＋5＝7
　　3、然后用原来的数减去加的结果：
　　A＋10B－（A＋B）＝9B。如25－7＝18＝2×9。
　　4、从上亩燃御面就可以看到，你无论选个什么数，按照占心术的算法，最后都会是9的倍数的数！
　　5、你看看网页上右边的那些符号，迅岩是不是凡是9的倍数的如9，18，27等等数后面的符号都是一样的？对了 ，那些符号都是一样的。
　　而水晶球里面的图像，在电脑程序设计的时候，就保证它和外面9的倍数的数后面的符号是一样的。
　　6、所以，你一点水球，就出来个和外面9的倍数数字后面的图，你就认为是自己心中想的。
　　7、要注意个问题，就是你点了水晶球一次后，电脑程序会使球里的图变化，同时外面所有九的倍数的数字后面的图也跟着变成和水晶球里面的图一样的图。
　　8、你再点，还是……
　　注意: 图片是不断变化着的 每次都不同 比如您算出一次 等于54 那么请看 所有的9的倍数都是54相同的图片. 比如 9 18 27 36 45 54 63 72 81
　　=============================
　　下面是VB的程序代码
　　=============================
　　Dim a(13) As Integer
　　Dim inti As Integer
　　Private Sub Form_Load()
　　lbl1.Top = 4800
　　lbl1.Left = 7800
　　a(0) = 7
　　a(1) = 8
　　a(2) = 11
　　a(3) = 12
　　a(4) = 14
　　a(5) = 15
　　a(6) = 17
　　a(7) = 18
　　a(8) = 19
　　a(9) = 20
　　a(10) = 26
　　a(11) = 27
　　a(12) = 36
　　a(13) = 37
　　For i = 1 To 99
　　Load lbl(i)
　　lbl(i).Top = lbl(0).Top + lbl(0).Height + 600 * (i \ 12)
　　lbl(i).Left = lbl(0).Left + lbl(0).Width + 600 * (i Mod 12)
　　lbl(i).Visible = True
　　Next
　　lbl(0).Top = lbl(0).Top + lbl(0).Height
　　lbl(0).Left = lbl(0).Left + lbl(0).Width
　　nsu
　　End Sub
　　Public Sub nsu()
　　Randomize
　　inti = Int((1500232 * Rnd) Mod 14)
　　For i = 0 To 99
　　intj = Int((1500232 * Rnd) Mod 14)
　　Do While (intj = inti)
　　intj = Int((1500232 * Rnd) Mod 14)
　　Loop
　　lbl(i).Caption = (99 - i) & Chr(a(intj))
　　If (99 - i) Mod 9 = 0 And (99 - i) < 82 Then lbl(i).Caption = (99 - i) & Chr(a(inti))
　　Next
　　End Sub
　　Private Sub Label2_Click()
　　Label2.Visible = False
　　lbl1.Caption = "尐"
　　For i = 0 To 99
　　lbl(i).Visible = True
　　Next
　　nsu
　　End Sub
　　Private Sub lbl1_Click()
　　If lbl1.Caption = "尐" Then
　　lbl1.Caption = Chr(a(inti))
　　Label2.Visible = True
　　Label2.Caption = Chr(a(inti))
　　For i = 0 To 99
　　lbl(i).Visible = False
　　Next
　　Else
　　Label2.Visible = False
　　lbl1.Caption = "尐"
　　For i = 0 To 99
　　lbl(i).Visible = True
　　Next
　　nsu
　　End If
　　End Sub
　　==================================

Answer 2

呵呵，这个问题很简单啊
因为在1-99之间，任何一个数字按照题目要求的规则相加，都是9的倍数。比如任意取一个数45，4+5=9，45-9=36，而36正好也是9的倍数。大察简你注意看，所有9的倍数的符号都是一样的~~所以无论你怎么测试，最后的符号都是9的倍数的数字符号
至于后面的TRYAGAIN……只要把属于9的倍数的所有没雀数字符号都变成另外一个符号，不就可以瞒天过海了滚裤o(∩_∩)o...

Answer 3

有一个数字读心术
是大为布莱恩的一个心理魔术
首先你要求观众心中想1-50之间的数字
但是必须是两位数
所以排除了1-9这9个
那么就还有41个数字可选
然后在要求两位数必须是单如液数
比如17
像22就不行
其实符合标准的数哗迹字只有13,15,17,19,31,35,37,39这8个数字
由于你之前说了17和22
从心理角度来说
对方一般都会选比这两个数字大的数字
那么观众能选的就是31,35,37,39这4个数字
对观众而言
猜中几率是1/50
但对于表演者来说
范围基本已经缩小到了1/4
如果想100%猜对
可以先问对方
是大于25还是小于25
如果第一次猜错了
你可以说你的心理好复杂
我要在仔细看看
因为这个魔术本来就不是100%会成渣芦物功
如果想100%成功还有一个办法
把可能出现的8个数字分别写在8张纸上面
身上的荷包要多
一个荷包一个
要记清楚哪个荷包放的什么数字
你要对方把数字报出来
然后从荷包拿出对应的数字
之后说
其实我早就猜到了
这个魔术刘谦也表演过

Answer 4