标题菜鸟捉虫(9)

　　自“菜鸟捉虫”栏目在本版第7期推出后，受到了不少初级编程爱好者的欢迎。为了调动大家的积极性，我们决定对给出正确答案的读者予以奖励，奖品是即将上市的2001年第2期《电脑报配套光盘》。
　　上一期正确答案：
　　Private Sub Open_Click()
　　……
　　Loop
　　Close #1 'close语句不应置于循环中，否则文件将只有一行被读出而出错
　　End If
　　End With 'With语句应配套使用，应有End With结束
　　End Sub
　　幸运获奖者名单：
　　上　　海　 吴冀卿
　　江西玉山　 支树林
　　江苏南京　 柳　攀
　　以下是本期题目
　　这个程序的功能为显示一幅图片和相应的文本，经过一段时间切换成另一幅图片和相应的文本，再经过一段时间程序自动关闭。错误表现为：开始运行便报错，纠正这个错误后，图片和文本不能切换，再纠正这个错误后程序也不能自动关闭。(由河北李文炳提供)
　　Private Sub Form_Load()
　　Timer1.Enabled=True
　　Label2.Width=0
　　Label1.Caption=“秀美山川”
　　Picture1.Picture=LoadPicture(“c:\my documents\tu\1.jpg”)
　　If Label2.Width>2500 And Label2.Width<2550 Then
　　Label1.Caption=“潺潺流水”
　　Picture1.Picture=LoadPicture(“c:\my documents\tu\2.jpg”)
　　ElseIf Label2.Width=5000 Then
　　End
　　Else
　　End If
　　End Sub
　　Private Sub Timer1_Timer()
　　Label2.Width=Label2.Width+30
　　End Sub
　　程序中添加的控件有Label1、Label2、Picture1和Timer1，其中Label2仅作控制进度用，并无其它用途，可以放在窗体底部作为进度条用，也可以隐去。