菜鸟捉虫(9)

2001年第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仅作控制进度用，并无其它用途，可以放在窗体底部作为进度条用，也可以隐去。