菜鸟捉虫(9)

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