讀心術[社交遊戲]

“讀心術”一款有意思的社交遊戲。依託社交遊戲開放平台，社交遊戲“讀心術”的套用得到了快速的普及。目前，“讀心術”已經成為網際網路上最流行的社交遊戲之一。

遊戲玩法

“讀心術”是來源於下面的數學過程，並不是仙術。在“讀心術”設計中，設這個數是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

==================================