这段代码总是提示“输入超出文件尾”,求解!
小生是刚学VB才一个多月的纯新人,高手勿喷。。。程序代码:
If MsgBox("是否输入您的成绩?", vbYesNo) = vbYes Then score = Text2.Text Player = InputBox("请输入姓名", 0) Ns = Ns + 1 ReDim Preserve S(1, Ns) S(0, Ns) = Player S(1, Ns) = score Open App.Path & "\score.txt" For Input As 1 Do While Not EOF(1) Ns = Ns + 1 ReDim Preserve S(1, Ns) Input #1, S(0, Ns), S(1, Ns) Loop Close 1 For I = 1 To Ns - 1 For J = I + 1 To Ns If Val(S(1, I)) < Val(S(1, J)) Then Tm = S(0, I) S(0, I) = S(0, J) S(0, J) = Tm Tm = S(1, I) S(1, I) = S(1, J) S(1, J) = Tm End If Next J Next I Open App.Path & "\score.txt" For Output As 1 For I = 1 To Ns Print #1, Tab(10); S(0, I); Tab(30); S(1, I) Next I Close 1 MsgBox "您的成绩已经成功存储!可在主界面查询成绩排名。" End If
这一段主要是想去实现游戏结束后对成绩的保存和排名,按顺序存到一个txt中。
但是当下面用print写入的时候 就会提示“输入超出文件尾” 用write就不会出现这个问题
虽然错误定位在上面的input里 但是我个人觉得错误应该在写入那边。。。。不过实在没有思路
请问这个具体该怎么解决呢?