菜鸟捉虫(7)

  
2001年 7期

　　各位新老PFans，想必经过长长的假期，大家在编程方面已经有一定进步了吧。我们在“编程乐园”中陆续介绍了关于Visual Basic编程的基本概念、语法规则、编程技巧和大量的趣味实例（请从《电脑报》2000年38期看起）。
　　　　我们都知道，在实际编程中很可能在细小的地方出现问题，我们必须具备一双“火眼金睛”，能够迅速地找出程序的Bug，尽量在开发阶段就能发现问题和解决问题，同时也为了进一步提高各位的实战能力和加强对基本知识的掌握。我们新推出一个栏目──“菜鸟捉虫”，顾名思义，就是找出程序之中的错误，这在以后调试程序是大有裨益的。要知道很多优秀的程序员在这方面下了很大的功夫，因为在软件开发过程中，调试过程是非常必要和关键的，大型的软件厂商都设有专门的程序测试工序，这也是通往程序员道路的一个重要训练内容。
　　　　这一期是一个关于用公共对话框（Common Dialog）进行文件操作的错误程序，由重庆的杜伟朋友提供，其中有两处错误，请将你找到的错误寄给责任编辑（E-mail：cys78@cpcw.com或重庆市人民路236号软件世界收，请注明“菜鸟捉虫”）。我们会逐渐加大找错的难度，也希望大家互相交流，提供错误程序或解答（注：每个错误程序不超过3个错误）。
　　　　程序代码如下：
　　　　Private Sub Open_Click（）
　　　　With CommonDialog
　　　　.FileName=“”
　　　　.Filter=“所有文件｜*.*”
　　　　.ShowOpen
　　　　If .FileName=“” Then
　　　　Exit Sub
　　　　Else
　　　　Dim sStr As String
　　　　Open .FileName For Input As #1
　　　　Do While Not EOF（1）
　　　　Line Input #1，sStr
　　　　Text1.SelText=sStr & vbCrlf
　　　　Close #1
　　　　Loop
　　　　End If
　　　　End Sub
　　　　如果大家对公共对话框不太熟悉的话，可以参考《电脑报》2001年第1期B8版《公共对话框控件的应用》一文。
　　
　　 
 