Option Base 1

Private Sub Command1_Click()
   Open "D:\动库容研究\试算\shisuan.txt" For Input As #1
      Dim P() As Single
      Dim W() As Single
      Dim W1() As Single
      Dim V() As Single
      Dim VS() As Single
      Dim VK() As Single
      Dim R As Single
    
      M = InputBox("请输入M")
      N = InputBox("请输入N")
      ReDim P(M)
      ReDim W(N)
      ReDim W1(N)
      ReDim V(M + N - 1)
      ReDim VS(M + N - 1)
      ReDim VK(M + N - 1)
      Dim T1 As Single
         R = 0
         For I = 1 To M 
             Input #1, P(I)
             R = R + P(I)    
         Next I
         For I = 1 To M + N - 1 
       [u]  Input #1, V(I)[/u]
         Next I
          For I = 1 To N 
             W(I) = V(M + N - 1) * I / (R * N)
         Next I
         For I = 1 To M + N - 1 
             VS(I) = 0
         Next I
       
    Close #1
 End Sub
。。。。。。。。
。。。。。。。。

我在.txt文档中放了19个数据，M=3，N=14，不知道为什么总是提示输入超出文件尾，错误的地方为斜线部分。哪位高手能帮忙看一下，谢谢！