s="☆;★;○;◎;◇;◆;■;△;▲;※;⊙;→;←;↑;↓;〓;〖;〗;【;】;『;』;≡;∑;∈;∵;∴;Ａ;Ｂ;Ｃ;Ｄ;Ｅ;Ｆ;Ｇ;Ｈ;Ｉ;Ｊ;Ｋ;Ｌ;Ｍ;Ｎ;Ｏ;Ｐ;Ｑ;Ｒ;Ｓ;Ｔ;Ｕ;Ｖ;Ｗ;Ｘ;Ｙ;Ｚ;①;②;③;④;⑤;⑥;⑦;⑧;⑨;⑩"
th=Split(s,";")

aa=msgbox("请在以下符号中选择一个牢记在心中。记住后请点“确定”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"☆ ★ ○ ◎ ◇ ◆ ■ △ ▲ ※ ⊙ → ← ↑ ↓ 〓 〖 〗【 】『』≡ ∑ ∈ ∵ ∴ " _
&"Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbokcancel+4096,"读心术")
if aa=vbcancel then 
wscript.quit
end if

a=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"☆ ○ ◇ ■ ▲ ⊙ ← ↓ 〖 【 『 ≡ ∈ ∴ Ｂ Ｄ Ｆ Ｈ Ｊ Ｌ Ｎ Ｐ Ｒ Ｔ Ｖ Ｘ Ｚ ② ④ ⑥ ⑧ ⑩",vbyesnocancel+4096,"读心术")
if a=vbyes then 
nl=nl+1
elseif a=vbcancel then
wscript.quit
end if

b=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"★ ○ ◆ ■ ※ ⊙ ↑ ↓ 〗 【 』 ≡ ∵ ∴ Ｃ Ｄ Ｇ Ｈ Ｋ Ｌ Ｏ Ｐ Ｓ Ｔ Ｗ Ｘ ① ② ③ ⑤ ⑥ ⑨ ⑩",vbyesnocancel+4096,"读心术")
if b=vbyes then 
nl=nl+2
elseif b=vbcancel then
wscript.quit
end if

c=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"◎ ◇ ◆ ■ → ← ↑ ↓ 】 『 』 ≡ Ａ Ｂ Ｃ Ｄ Ｉ Ｊ Ｋ Ｌ Ｑ Ｒ Ｓ Ｔ Ｙ Ｚ ① ② ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
if c=vbyes then 
nl=nl+4
elseif c=vbcancel then
wscript.quit
end if

d=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"△ ▲ ※ ⊙ → ← ↑ ↓ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
if d=vbyes then 
nl=nl+8
elseif d=vbcancel then
wscript.quit
end if

e=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"〓 〖 〗 【 】 『 』 ≡ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
if e=vbyes then 
nl=nl+16
elseif e=vbcancel then
wscript.quit
end if

f=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
&"Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
if f=vbyes then 
nl=nl+32
elseif f=vbcancel then
wscript.quit
end if
if nl<>0 then
msgbox "您选择的符号是:"&th(nl-1),4096,"读心术"
else
msgbox "您没有记住您选择的符号！",16+4096,"读心术"
end if