一个前馈神经网络算法的演示程序，我本来想在看懂源程序的基础上再增加一个界面，可以利用经过学习修正了的连接权值和偏差值，根据用户的输入计算出一个预测结果，结果出现了下面的问题，搜索的结果是使用了无效的索引值引用控件数组的元素所致，那么，索引值为什么会无效？
Private Sub Command2_Click()‘点击此按钮，开始进行运算
Dim i, j As Integer
Dim net() As Double
ReDim net(JJ)
For j = 1 To JJ
  For i = 1 To II
    net(j) = net(j) + V2(j, i) * Customer(i)
  Next i
  y(Count, j) = f(net(j) - R2(j))
Next j
ReDim net(KK)
For k = 1 To KK
  For j = 1 To JJ
    net(k) = net(k) + W2(k, j) * y(Count, j)
  Next j
  o(Count, k) = f(net(k) - Q2(k))
Next k
  For i = 1 To KK
    Predict_Result(i) = o(i)
    Text2(i - 1).Text = Predict_Result(i)
  Next i
End Sub

Private Sub Form_Load()
Dim i, j, k, n As Integer
ReDim V2(JJ, II)
ReDim W2(KK, JJ)
ReDim R2(JJ)
ReDim Q2(KK)
ReDim Customer(II)
ReDim Predict_Result(KK)
ReDim Text1(II)
ReDim Text2(KK)
Call Initial_2
Call Get_values
End Sub

Private Sub Get_values()
Dim i As Integer
For i = 1 To II
    Customer(i) = Text1(i-1).Text
Next i
End Sub

Private Sub Initial_2()          ’V()、W()、R()、Q()是前面经过计算已经得到的连接权值和偏差值
Dim i, j, k As Integer
For i = 0 To II-1
    Text1(i).Text = 0        ‘显示“实时错误 控件数组元素‘1’不存在”就是这一行
Next i
For k = 1 To KK
    For j = 1 To JJ
    W2(k, j) = Val(W(k, j))
    Next j
    Q2(k) = Val(Q(k))
Next k
For j = 1 To JJ
    R2(j) = Val(R(j))
Next j
For j = 1 To JJ
    For i = 1 To II
    V2(j, i) = Val(V(j, i))
    Next i
Next j
End Sub
完整代码请见附件