1. Event(Form1.Button1.Click)
2. 定义变量 路径
3. 标记 a
4. 令 路径 = File.SelectFile()
5. 如果 路径 <> "" 则
6.     如果 (LCase(Right(路径,4)) = ".jpg" 或者 LCase(Right(路径,4)) = ".bmp" 或者 LCase(Right(路径,4)) = ".gif") 则
7.         令 Form1.PictureBox1.Picture = 路径
8.     否则
9.         MsgBox("请选择（.jpg）、（.bmp）或（.gif）格式图片！！！")
10.         跳转到标记 a
11.     条件结束
12. 条件结束
13. (语句无法识别，可能有错误): End Event
14. Event(Form1.Button2.Click)
15. 令 Form1.PictureBox1.Picture = "Attachment:\11.bmp"
16. (语句无法识别，可能有错误): End Event
17. Event(Form1.PictureBox1.Click)
18. 弹出窗口 1
19. (语句无法识别，可能有错误): End Event