老大昨天问你那个问题Private Sub Text2_Change(Index As Integer)
    T_Digit = Val(Text2(Index).Text)
    P__Digit = Val(Text2(Index).Text)
    E__Digit = Val(Text2(Index).Text)
    Q_Digit = Val(Text2(Index).Text)
    H__Digit = Val(Text2(Index).Text)
End Sub
你那个方法也很不错的，今天我有尝试了一次都用数组也是可以做到的，只是比较麻烦一些。我现在又碰到一个问题咨询老大。
我已经把这个控件数组保存在文件里面了，当我再次运行的时候我就打开文件加载数据，但是每次我只能加载第一个数据后面几个都是0.如例子
Private Sub Calselect_Click()
Dim i As Integer
 for i=0 to 3
  Form1.Text2(i).Text = CStr(TPEQ_Digit(i))
 next 
 Form1.Show
End Sub
这是当form1加载时数据在相应的文本框显示。当打开文件时数据已经赋给了TPEQ_Digit(i)。这是什么原因呢？谢谢！！