Open App.Path & "\in3.dat" For Input As 1 Open App.Path & "\

Open App.Path & "\in3.dat" For Input As 1
上面这句写错
Open App.Path & "\in3.dat" For Input As #1
这样才对
详解;
Open App.Path & "\in3.dat" For Input As 1
open : 打开文件
app.path :程序当前工作路径,例如程序在c:\1\2\3,那么app.path 就等于"c:\1\2\3"注意,该路径是没有带最后一个“\”的字符,所以加上后来的“& "\in3.dat"”就等于 "C:\1\2\3\in3.dat"（注意：这是举例程序目录在c:\1\2\3,而不是指app.path在这个路径）
input:输入,把数据（文件）输入电脑（内存）
output:输出,把数据（文件）输出电脑（内存）