小生是刚学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里 但是我个人觉得错误应该在写入那边。。。。不过实在没有思路
请问这个具体该怎么解决呢？   

                Input #1, S(0, Ns), S(1, Ns)
                    Print #1, Tab(10); S(0, I); Tab(30); S(1, I)

读的数据个数与写的数据个数不相同，是不是这个问题，写的时候，不写 tab(10) 试试。
未测试，仅供参考。

打开文件输入数据，一般应该有个判定语句看是否输入到了结尾。如果到了就不再输入，完成输入。不检查是否到了文件结尾是比较危险的。好的程序员一定要在可能出现问题的地方事先采取应对措施！