神奇……请高手帮忙分析为什么这个“读心术”页面会很准？

Question

假设a是十位数，b是个位数，那么，计算得到的结果是
(10*a+b)-(a+b)=9*a
所以是9的倍数，而那上面的9的倍数对应的图形都是一样的。

Answer 1

http://www.xxiyy.com/fun/cards/呵呵~~~~都是魔术的基本~~~~

Answer 2

hehe 
骗人的都一样，呵呵

Answer 3

'**********'GO'**********'
Private Sub GoLabel_Click()
    ResultText.Text = ""
    Ddc = GetDC(ZoomPicture.hwnd)
    Sdc = GetDC(0)
    GetNow = True
    GetColorSize = 1
    ReleaseCapture
    SetCapture TmpPicture.hwnd
End Sub'**********' 获得图片放大'**********'
Private Sub TmpPicture_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)        '
        '* 放大
        '
        StretchBlt Ddc, -2, -2, ZoomPicture.Width / Screen.TwipsPerPixelX, ZoomPicture.Height / Screen.TwipsPerPixelY, Sdc, (X + Me.Left) / Screen.TwipsPerPixelX - (ZoomPicture.Width / Screen.TwipsPerPixelX) / 6, (Y + Me.Top) / Screen.TwipsPerPixelY - (ZoomPicture.Height / Screen.TwipsPerPixelY) / 6, (ZoomPicture.Height / Screen.TwipsPerPixelY) / 3, (ZoomPicture.Height / Screen.TwipsPerPixelY) / 3, SRCCOPY
        '
        '* 文本框显示颜色
        '
        If GetColorSize = 1 Then
            ResultText.BackColor = GetPixel(Sdc, (X + Me.Left) / Screen.TwipsPerPixelX, (Y + Me.Top) / Screen.TwipsPerPixelY)
            ResultText.ForeColor = InvRGB(CStr(Hex(GetPixel(Sdc, (X + Me.Left) / Screen.TwipsPerPixelX, (Y + Me.Top) / Screen.TwipsPerPixelY))) & "　" & HexToRGB(CStr(Hex(GetPixel(Sdc, (X + Me.Left) / Screen.TwipsPerPixelX, (Y + Me.Top) / Screen.TwipsPerPixelY)))))
            ResultText.Text = "#" & CStr(Hex(GetPixel(Sdc, (X + Me.Left) / Screen.TwipsPerPixelX, (Y + Me.Top) / Screen.TwipsPerPixelY))) & "　" & HexToRGB(CStr(Hex(GetPixel(Sdc, (X + Me.Left) / Screen.TwipsPerPixelX, (Y + Me.Top) / Screen.TwipsPerPixelY))))
        End If
    
End Sub