vb 超出文件尾

来源：百度知道 编辑：UC知道 时间：2024/05/20 05:00:08
程序如下：
Private Sub Command1_Click()
num = InputBox("请输入用户数")
num = Clnt(num)
n = n + num
ReDim Tel_Addr_Rec(num) As Tel_Addr
Open "d:\temp\comm.txt" For Append As #1
For i = 1 To num
Tel_Addr_Rec(i).num = InputBox("请输入编号")
Tel_Addr_Rec(i).User_Name = InputBox("请输入用户名字")
Tel_Addr_Rec(i).Tel = InputBox("请输入用户电话号码")
Tel_Addr_Rec(i).User_Addr = InputBox("请输入地址")
Write #1, Tel_Addr_Rec(i).num, _
Tel_Addr_Rec(i).User_Name, _
Tel_Addr_Rec(i).Tel, _
Tel_Addr_Rec(i).User_Addr
Next i
Close #1

Open "d:\temp\tel.txt" For Output As #1
Print #1, n
Close #1
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Open "d:\temp\tel.txt" For Input As #1
Inp

超出文件尾
是指从文件中读取数据时，读取数超过文件的数据数，即数据不够读取。
重点检查诸如 input#1，n…… 和与之对应的：
Open "**.txt" For Input As #？中
文件**.txt中数据数量够不够读取及格式如数据分隔符、回车换行等是否合适。

补充：
input#1，n，…… <---总读取的变量数要与文件中的数据数：（例如）
1，2，3，4，5……
6，7，8，9，0……
数据数多少一致。

“实时错误‘62’：超出文件尾”，错误的关键代码没写出来，只写了个没有错的代码。

你得看出现错误时程序停止的位置，就可以相应地找出存在的问题。