标题菜鸟捉虫(15)

　　上期正确答案：
　　该程序的两处错误出在DeleteSelitem过程中，正确的代码是：
　　Private Sub DeleteSelitem()
　　...
　　If List1.Selected(i) = True Then
　　List1.Removeltem i'原错误一处
　　On Error Resume Next
　　i=i-1'原错误两处 将if 语句去掉，变i=i+1为i=i-1
　　End if
　　Next i
　　End Sub
　　以下是第13期“菜鸟捉虫”幸运读者名单(奖品为《电脑报配套光盘》2001年第4期)
　　夏剑峰　 湖北　　 文龙　　 四川
　　刘建群　 陕西　　 丁远惠　 江苏
　　黄科材　 广东
　　本期题目：
　　现有一个程序，用于打开用户选择的文件(可打开任何已关联的文件)。但编译后并不能达到预期的目的，请找出其中的错误。
　　首先该程序中含有一个Drive、Dir、File、及一个Command控件。Command控件的Caption属性“打开”。
　　该程序的代码如下：
　　Private Sub Command1_Click()
　　If File1.FileName = “” Then
　　MsgBox “请选择一个要打开的文件！”，vbOKOnly + vbCritical，“错误”
　　End If
　　On Error GoTo OpenErr
　　Shell File1.Path + File1.FileName，vbNormalFocus
　　OpenErr：
　　If Err.Number > 0 Then
　　MsgBox “文件未找到！”， vbOKOnly + vbCritical，“错误”
　　End If
　　End Sub
　　Private Sub Dir1_Change()
　　File1.Path = Dir1.Path
　　End Sub
　　Private Sub Drive1_Change()
　　On Error Resume Next
　　Dir1.Path = Drive1.Drive
　　End Sub