msgbox "    从10～99之间任意选择一个数，把这个数的十位与个位相加，再把任意选择的数减去这个和。" & chr(13) & chr(10) & "例如：你选的数是23，然后2+3=5，然后23-5=18，在图表中找出与差值对应的符号，并把这个符" & chr(13) & chr(10) & "号牢记心中，然后进入下一步，你会发现：显示出来的符号就是你刚刚心里记下的那个符号。",,"读心术—VBS版"
do until tuichu=vbno
dim a,fuhao,MyFile,fu
set fso=createobject("scripting.filesystemobject")
randomize
set ws=createobject("wscript.shell")
for i=99 to 0 step -1
if i=99 then call aa()
a=int(rnd()*32+1)
if a=1 then
fuhao="☆"
elseif a=2 then
fuhao="★"
elseif a=3 then
fuhao="○"
elseif a=4 then
fuhao="●"
elseif a=5 then
fuhao="◎"
elseif a=6 then
fuhao="◇"
elseif a=7 then
fuhao="◆"
elseif a=8 then
fuhao="□"
elseif a=9 then
fuhao="■"
elseif a=10 then
fuhao="△"
elseif a=11 then
fuhao="▲"
elseif a=12 then
fuhao="※"
elseif a=13 then
fuhao="→"
elseif a=14 then
fuhao="←"
elseif a=15 then
fuhao="↑"
elseif a=16 then
fuhao="↓"
elseif a=17 then
fuhao="〓"
elseif a=18 then
fuhao="＠"
elseif a=19 then
fuhao="〖"
elseif a=20 then
fuhao="〗"
elseif a=21 then
fuhao="【"
elseif a=22 then
fuhao="】"
elseif a=23 then
fuhao="『"
elseif a=24 then
fuhao="』"
elseif a=25 then
fuhao="≈"
elseif a=26 then
fuhao="≡"
elseif a=27 then
fuhao="∑"
elseif a=28 then
fuhao="∈"
elseif a=29 then
fuhao="⊙"
elseif a=30 then
fuhao="∵"
elseif a=31 then
fuhao="∴"
elseif a=32 then
fuhao="¤"
end if
if i>=0 and i<=9 then i=i & " "
if i=9 or i=18 or i= 27 or i=36 or i=45 or i=54 or i=63 or i=72 or i=81 then fuhao=fu
b=i &"  " & fuhao & "    "& b
if i=90 or i=80 or i=70 or i=60 or i=50 or i=40 or i=30 or i=20 or i=10 then
b= chr(13) & chr(10) & b
end if
next
msgbox b,,"读心术—请牢记你选择的符号"
tuichu=msgbox ("你选择的符号是:" & fu & chr(13)& chr(10)& "还要再试一次吗？",vbyesno+48+4096,"读心术—提示")
b=""
loop
sub aa()
a=int(rnd()*32+1)
if a=1 then
fu="☆"
elseif a=2 then
fu="★"
elseif a=3 then
fu="○"
elseif a=4 then
fu="●"
elseif a=5 then
fu="◎"
elseif a=6 then
fu="◇"
elseif a=7 then
fu="◆"
elseif a=8 then
fu="□"
elseif a=9 then
fu="■"
elseif a=10 then
fu="△"
elseif a=11 then
fu="▲"
elseif a=12 then
fu="※"
elseif a=13 then
fu="→"
elseif a=14 then
fu="←"
elseif a=15 then
fu="↑"
elseif a=16 then
fu="↓"
elseif a=17 then
fu="〓"
elseif a=18 then
fu="＠"
elseif a=19 then
fu="〖"
elseif a=20 then
fu="〗"
elseif a=21 then
fu="【"
elseif a=22 then
fu="】"
elseif a=23 then
fu="『"
elseif a=24 then
fu="』"
elseif a=25 then
fu="≈"
elseif a=26 then
fu="≡"
elseif a=27 then
fu="∑"
elseif a=28 then
fu="∈"
elseif a=29 then
fu="⊙"
elseif a=30 then
fu="∵"
elseif a=31 then
fu="∴"
elseif a=32 then
fu="¤"
end if
end sub