1. 令 s = "☆;★;○;◎;◇;◆;■;△;▲;※;⊙;→;←;↑;↓;〓;〖;〗;【;】;『;』;≡;∑;∈;∵;∴;Ａ;Ｂ;Ｃ;Ｄ;Ｅ;Ｆ;Ｇ;Ｈ;Ｉ;Ｊ;Ｋ;Ｌ;Ｍ;Ｎ;Ｏ;Ｐ;Ｑ;Ｒ;Ｓ;Ｔ;Ｕ;Ｖ;Ｗ;Ｘ;Ｙ;Ｚ;①;②;③;④;⑤;⑥;⑦;⑧;⑨;⑩"
2. 令 th = Split(s,";")
3. (语句无法识别，可能有错误): aa=msgbox("请在以下符号中选择一个牢记在心中。记住后请点“确定”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
4. (语句无法识别，可能有错误): &"☆ ★ ○ ◎ ◇ ◆ ■ △ ▲ ※ ⊙ → ← ↑ ↓ 〓 〖 〗【 】『』≡ ∑ ∈ ∵ ∴ " _
5. (语句无法识别，可能有错误): &"Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbokcancel+4096,"读心术")
6. 如果 aa = vbcancel 则
7.     wscript.quit()
8. 条件结束
9. (语句无法识别，可能有错误): a=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
10. (语句无法识别，可能有错误): &"☆ ○ ◇ ■ ▲ ⊙ ← ↓ 〖 【 『 ≡ ∈ ∴ Ｂ Ｄ Ｆ Ｈ Ｊ Ｌ Ｎ Ｐ Ｒ Ｔ Ｖ Ｘ Ｚ ② ④ ⑥ ⑧ ⑩",vbyesnocancel+4096,"读心术")
11. 如果 a = vbyes 则
12.     令 nl = nl + 1
13. 否则如果 a = vbcancel 则
14.     wscript.quit()
15. 条件结束
16. (语句无法识别，可能有错误): b=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
17. (语句无法识别，可能有错误): &"★ ○ ◆ ■ ※ ⊙ ↑ ↓ 〗 【 』 ≡ ∵ ∴ Ｃ Ｄ Ｇ Ｈ Ｋ Ｌ Ｏ Ｐ Ｓ Ｔ Ｗ Ｘ ① ② ③ ⑤ ⑥ ⑨ ⑩",vbyesnocancel+4096,"读心术")
18. 如果 b = vbyes 则
19.     令 nl = nl + 2
20. 否则如果 b = vbcancel 则
21.     wscript.quit()
22. 条件结束
23. (语句无法识别，可能有错误): c=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
24. (语句无法识别，可能有错误): &"◎ ◇ ◆ ■ → ← ↑ ↓ 】 『 』 ≡ Ａ Ｂ Ｃ Ｄ Ｉ Ｊ Ｋ Ｌ Ｑ Ｒ Ｓ Ｔ Ｙ Ｚ ① ② ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
25. 如果 c = vbyes 则
26.     令 nl = nl + 4
27. 否则如果 c = vbcancel 则
28.     wscript.quit()
29. 条件结束
30. (语句无法识别，可能有错误): d=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
31. (语句无法识别，可能有错误): &"△ ▲ ※ ⊙ → ← ↑ ↓ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
32. 如果 d = vbyes 则
33.     令 nl = nl + 8
34. 否则如果 d = vbcancel 则
35.     wscript.quit()
36. 条件结束
37. (语句无法识别，可能有错误): e=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
38. (语句无法识别，可能有错误): &"〓 〖 〗 【 】 『 』 ≡ ∑ ∈ ∵ ∴ Ａ Ｂ Ｃ Ｄ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
39. 如果 e = vbyes 则
40.     令 nl = nl + 16
41. 否则如果 e = vbcancel 则
42.     wscript.quit()
43. 条件结束
44. (语句无法识别，可能有错误): f=msgbox("以下符号中有你选择的符号吗？如果有请点“是”没有点“否”，退出程序请点“取消”。"&vbcrlf&vbcrlf _
45. (语句无法识别，可能有错误): &"Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩",vbyesnocancel+4096,"读心术")
46. 如果 f = vbyes 则
47.     令 nl = nl + 32
48. 否则如果 f = vbcancel 则
49.     wscript.quit()
50. 条件结束
51. 如果 nl <> 0 则
52.     msgbox("您选择的符号是:" & th(nl - 1),4096,"读心术")
53. 否则
54.     msgbox("您没有记住您选择的符号！",16 + 4096,"读心术")
55. 条件结束