Question

一道二级VB题啊 急求答案

题是这样子的：
在窗体上建立三个菜单（名称分别为Read、Calc和Save，标题分别为"读入
数据"、"计算并输出"和"存盘"），然后画一个文本框（名称为Text1，
MultiLine属性设置为True，ScrollBars属性设置为2）（如图所示）。程序
运行后，如果执行"读入数据"命令，则读入datain1.txt文件中的100个整
数，放入一个数组中，数组的下界为1； 如果单击"计算并输出"按钮，则
把该数组中可以被3整除的元素在文本框中显示出来， 求出它们的和，并把
所求得的和在窗体上显示出来；如果单击"存盘"按钮，则把所求得的和存
入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件
中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；
而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整
数值通过计算求得，文件名为dataout.txt）。
注意：
考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为
sjt5.vbp，窗体文件名仍为sjt5.frm。
我的答案是：
Option Base 1
Dim Arr(100) As Integer

Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub

Private Sub Calc_Click()
Text1.Text = ""
For i = 1 To 100
If Arr(i) Mod 3 = 0 Then
Text1.Text = Text1.Text & Arr(i) & Space(5)
temp = temp + Arr(i)
End If
Next i
Print temp
'在窗体上打印变量temp
End Sub
Private Sub Read_Click()
ReadData
End Sub
Private Sub Save_Click()
WriteData "dataout.txt", temp
'调用过程WriteData
End Sub
但是后来结果说的找不到我的文件 为什么呢？？

Answer 1

它提示你找不到路径，你点调试，把鼠标移到App.Path ，看看系统显示的路径，再核对你自己文件的路径是否一样，不一样改一下就可以了....

Answer 2

Open App.Path
检查 app.path 路径 自己用debug.print app.path 就知道了
提示 找不到我的文件 就是路径问题而已

Answer 3

WriteData事件过程中，FileName改成"dataout.txt"试试看。

我也在准备计算机二级。