vb 呼救

来源：百度知道 编辑：UC知道 时间：2024/06/07 11:13:12
Open App.Path & "\in.txt" For Input As #1
For i = 1 To 100
Input #1, arr(i)
Text1.Text = Text1.Text & arr(i) & " "
Next i
Close #1

如上代码 是vb模拟题里面的 为什么我自己编的时候 使用时提示文件未找到 然后看了标准答案 将答案相应代码替换后却能够找到呢

有两种可能：
1、没有“IN.TXT”这个文件；
2、VB“打开”或“保存”对话框所显示路径并非为放“IN.TXT”文件的路径(VB的“打开”或“保存”对话框所显示路径一般为...\VB98\，而模拟软件的路径一般为x:\exam\xxxxxxx\)

我用模拟软件做题时也出现过这种原因，是第二种情况。我是直接把代码改为这样：

Open "H:\wexam\2008216\in.txt" For Input As #1(我的模拟软件装在H盘)

不用担心，正式考试不会出现此情况的（考试用的VB对应文件夹就是考生文件夹）用“Open App.Path & "\in.txt" For Input As #1 ”是可以的

就是在你的目录下没有 in.txt 这个文件

你在前面加一个

msgbox App.Path & "\in.txt"

看看这个路径你就知道怎么回事了

先debug跟踪下 Open App.Path & "\in.txt" For Input As #1 这句中的 app.path & "\in.txt" 的路径是否存在。可能你的这个路径与答案的路径不一致，或者你的in.txt文档不在你的app.path目录下。