求各位高手，老师帮忙看看这段VB程序有什么问题，谢谢了。非常急，在线等回答。再次谢谢了。

问题出在变量X上
X采用默认值，一开始是0
所以你的数组下标是从0开始的，Z(0)、Z(1)、Z(2)、。。。。。。Z(X-1)、

注意，你最后一个元素为Z(x-1)
为什么呢？
分析
Private Sub 计算_Click()
Dim A, B, C As Double “将输入的数值赋值给变量并求和”
A = Text1.Text
B = Text2.Text
C = A + B
ReDim Preserve Z(X)
Z(X) = C “将和给数组元素”
X = X + 1 “X变量实现计数功能，表示有几组数据”
End Sub
你是先重新声明
ReDim Preserve Z(X)
后
X = X + 1
所以，你的数组的最大下标不应该是X，而是X - 1
明白了吗？使用Z（X），就会下标越界！
另外，不要这样声明变量！Dim A, B, C As Double

这样声明是一种错误的理解！！！！！！

应该是：
Dim A As Double, B As Double, C As Double
或者
Dim A As Double
Dim B As Double
Dim C As Double