男生女生论坛 » □-趣味测试 » 读心术（很有意思）

┊.離Ｂú開o 发表于 2008-2-24 20:52

读心术（很有意思）

[player]http://static.duniu.com/www/web/flash/0x6b/0x8a/2006072844353132.swf[/player]
吉普赛人祖传的神奇读心术.它能测算出你对心爱之人的内心感应”
　　提示：
　　任意选择一个两位数（或者说，从10~99之间任意选择一个数），把这个数的十位与个位相加，再把任意选择的数减去这个和。例如：你选的数是23，然后2+3=5，然后23-5=18
　　在图表中找出与最后得出的数所相应的图形，并把这个图形牢记心中，同时在心里默念她/他的名字，然后点击水晶球。你会发现，水晶球所显示出来的图形就是你刚刚心里记下的那个图形。
     嘿嘿...怎么样？如果准的话，为了自己的将来，请自觉回帖吧:)

admin 发表于 2008-2-24 20:55

[^46^] 哇,真的准耶!!

|.+�]煙菋|.+ 发表于 2008-2-24 21:28

17

|.+�]煙菋|.+ 发表于 2008-2-24 21:29

[^88^]好象是准的哎

南宫二 发表于 2008-2-24 22:41

什么原理呢？[^8^]

桐羽儿 发表于 2008-2-25 23:27

准得好恐怖.........

桐羽儿 发表于 2008-2-25 23:28

真的,侧了5次,3次是认真算,全对,2次乱说个数找,错了,太~~帅

Τгу.С 发表于 2008-2-26 01:15

以前看过。。很厉害

南宫二 发表于 2008-2-26 03:52

请问这到底是为什么！

352644 发表于 2008-2-27 19:50

我想把它弄到QQ空间怎么弄啊?

懒人 发表于 2008-2-29 01:39

④個亼ζцф:

老错，没次对的！

ＨＡＮＡ－扬 发表于 2008-2-29 22:20

玩过,很准~~

Τгу.С 发表于 2008-3-1 02:49

不知道

Τгу.С 发表于 2008-3-1 02:52

原理：设十位数字为a,个位数字为b.算出的数c=10a+b-a-b=9a
所以任何一个两位数按照规定算后都是9的倍数
，表中遇9的倍数时都是同一个字母。所以能猜心

注意: 图片是不断变化着的 每次都不同 比如您算出一次 等于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

Τгу.С 发表于 2008-3-1 02:52

虽然我看不懂

┊.離Ｂú開o 发表于 2008-3-2 02:22

小7这就是这个FLASH里的？

ぁbu乖 发表于 2008-3-15 22:46

如果说数字旁边的图案没有重复的话就不会准了
呵呵!!!!!!!!!!![^7^]

南宫二 发表于 2008-3-16 01:01

原来是这样。
明白了。[^51^]

Τгу.С 发表于 2008-3-16 01:08

[quote]原帖由 [i]┊.離Ｂú開o[/i] 于 2008-3-2 02:22 发表 [url=http://bbs.n315.com/redirect.php?goto=findpost&pid=415451&ptid=41429][img]http://bbs.n315.com/images/common/back.gif[/img][/url]
小7这就是这个FLASH里的？ [/quote]


是啊!!!

尛/.У 发表于 2008-3-16 01:16

好准啊[^46^] [^46^]

查看完整版本: 读心术（很有意思）