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
================================== [編輯本段]二、《廣辭林》：“讀心術” 這個詞在<現代漢語字典>沒有,<廣辭林>有壹段:"讀心術--是握住人的手,根據其無意識的活動所引起的反應來探測其物品隱藏的地方的壹種技術"
會讀心術的人壹般較會察言觀色,懂得心理學,壹般會給被試者心理暗示。