1. Event(Form1.Load)
2. 令 Form1.PictureBox43.Picture = "Attachment:\iphone底.bmp"
3. 令 Form1.PictureBox44.Picture = "Attachment:\iphone头.bmp"
4. 令 Form1.PictureBox45.Picture = "Attachment:\iphone上.bmp"
5. 令 Form1.PictureBox46.Picture = "Attachment:\iphone下.bmp"
6. (语句无法识别，可能有错误): End Event
7. Event(Form1.Button1.Click)
8. 令 Form1.InputBox1.Text = "黑棋开始"
9. 定义变量 h, m, s, SJ
10. 令 h = Hour(time)
11. 令 m = Minute(time)
12. 令 s = Second(time)
13. 令 SJ = " " & h & "点" & m & "分" & s & "秒"
14. 令 Form1.InputBox3.Text = SJ
15. 令 Form1.InputBox2.Text = ""
16. 令 Form1.PictureBox1.Picture = "Attachment:\纯白.bmp"
17. 令 Form1.PictureBox2.Picture = "Attachment:\纯白.bmp"
18. 令 Form1.PictureBox3.Picture = "Attachment:\纯白.bmp"
19. 令 Form1.PictureBox4.Picture = "Attachment:\纯白.bmp"
20. 令 Form1.PictureBox5.Picture = "Attachment:\纯白.bmp"
21. 令 Form1.PictureBox6.Picture = "Attachment:\纯白.bmp"
22. 令 Form1.PictureBox7.Picture = "Attachment:\纯白.bmp"
23. 令 Form1.PictureBox8.Picture = "Attachment:\纯白.bmp"
24. 令 Form1.PictureBox9.Picture = "Attachment:\纯白.bmp"
25. 令 Form1.PictureBox10.Picture = "Attachment:\纯白.bmp"
26. 令 Form1.PictureBox11.Picture = "Attachment:\纯白.bmp"
27. 令 Form1.PictureBox12.Picture = "Attachment:\纯白.bmp"
28. 令 Form1.PictureBox13.Picture = "Attachment:\纯白.bmp"
29. 令 Form1.PictureBox14.Picture = "Attachment:\纯白.bmp"
30. 令 Form1.PictureBox15.Picture = "Attachment:\纯白.bmp"
31. 令 Form1.PictureBox16.Picture = "Attachment:\纯白.bmp"
32. 令 Form1.PictureBox17.Picture = "Attachment:\纯白.bmp"
33. 令 Form1.PictureBox18.Picture = "Attachment:\纯白.bmp"
34. 令 Form1.PictureBox19.Picture = "Attachment:\纯白.bmp"
35. 令 Form1.PictureBox20.Picture = "Attachment:\纯白.bmp"
36. 令 Form1.PictureBox21.Picture = "Attachment:\纯白.bmp"
37. 令 Form1.PictureBox22.Picture = "Attachment:\纯白.bmp"
38. 令 Form1.PictureBox23.Picture = "Attachment:\纯白.bmp"
39. 令 Form1.PictureBox24.Picture = "Attachment:\纯白.bmp"
40. 令 Form1.PictureBox25.Picture = "Attachment:\纯白.bmp"
41. 令 Form1.PictureBox26.Picture = "Attachment:\纯白.bmp"
42. 令 Form1.PictureBox27.Picture = "Attachment:\纯白.bmp"
43. 令 Form1.PictureBox28.Picture = "Attachment:\纯白.bmp"
44. 令 Form1.PictureBox29.Picture = "Attachment:\纯白.bmp"
45. 令 Form1.PictureBox30.Picture = "Attachment:\纯白.bmp"
46. 令 Form1.PictureBox31.Picture = "Attachment:\纯白.bmp"
47. 令 Form1.PictureBox32.Picture = "Attachment:\纯白.bmp"
48. 令 Form1.PictureBox33.Picture = "Attachment:\纯白.bmp"
49. 令 Form1.PictureBox34.Picture = "Attachment:\纯白.bmp"
50. 令 Form1.PictureBox35.Picture = "Attachment:\纯白.bmp"
51. 令 Form1.PictureBox36.Picture = "Attachment:\纯白.bmp"
52. 令 Form1.PictureBox37.Picture = "Attachment:\纯白.bmp"
53. 令 Form1.PictureBox38.Picture = "Attachment:\纯白.bmp"
54. 令 Form1.PictureBox39.Picture = "Attachment:\纯白.bmp"
55. 令 Form1.PictureBox40.Picture = "Attachment:\纯白.bmp"
56. 令 Form1.PictureBox41.Picture = "Attachment:\纯白.bmp"
57. 令 Form1.PictureBox42.Picture = "Attachment:\纯白.bmp"
58. (语句无法识别，可能有错误): End Event
59. Event(Form1.Button57.Click)
60. 令 Form1.Button57.Enabled = Fales
61. 弹出窗口 "游戏开始"
62. 循环 999999999999999999999 次
63.     令 Form1.InputBox1.Text = "黑棋开始"
64.     定义变量 h, m, s, SJ
65.     令 h = Hour(time)
66.     令 m = Minute(time)
67.     令 s = Second(time)
68.     令 SJ = " " & h & "点" & m & "分" & s & "秒"
69.     令 Form1.InputBox3.Text = SJ
70.     (语句无法识别，可能有错误): End Event
71.     Event(Form1.PictureBox1.Click)
72.     如果 Form1.InputBox1.Text = "黑棋开始" 则
73.         令 Form1.PictureBox1.Picture = "Attachment:\黑棋.bmp"
74.         令 Form1.InputBox1.Text = ""
75.         令 Form1.InputBox2.Text = "白棋开始"
76.     否则如果 Form1.InputBox2.Text = "白棋开始" 则
77.         令 Form1.PictureBox1.Picture = "Attachment:\白棋.bmp"
78.         令 Form1.InputBox2.Text = ""
79.         令 Form1.InputBox1.Text = "黑棋开始"
80.     条件结束
81.     (语句无法识别，可能有错误): End Event
82.     Event(Form1.PictureBox2.Click)
83.     如果 Form1.InputBox1.Text = "黑棋开始" 则
84.         令 Form1.PictureBox2.Picture = "Attachment:\黑棋.bmp"
85.         令 Form1.InputBox1.Text = ""
86.         令 Form1.InputBox2.Text = "白棋开始"
87.     否则如果 Form1.InputBox2.Text = "白棋开始" 则
88.         令 Form1.PictureBox2.Picture = "Attachment:\白棋.bmp"
89.         令 Form1.InputBox2.Text = ""
90.         令 Form1.InputBox1.Text = "黑棋开始"
91.     条件结束
92.     (语句无法识别，可能有错误): End Event
93.     Event(Form1.PictureBox3.Click)
94.     如果 Form1.InputBox1.Text = "黑棋开始" 则
95.         令 Form1.PictureBox3.Picture = "Attachment:\黑棋.bmp"
96.         令 Form1.InputBox1.Text = ""
97.         令 Form1.InputBox2.Text = "白棋开始"
98.     否则如果 Form1.InputBox2.Text = "白棋开始" 则
99.         令 Form1.PictureBox3.Picture = "Attachment:\白棋.bmp"
100.         令 Form1.InputBox2.Text = ""