我建了10个TEXT1(0~9)，10个TEXT2（0~9）,

为了书写方便，我把10个TEXT1(0~9)的名称分别改为：E1。TEXT、E2。TEXT、E3。TEXT。。。
10个TEXT2(0~9)的名称分别改为：Z1。TEXT、Z2。TEXT、Z3。TEXT。。。

在10个TEXT1里输入数值型数据，在10个TEXT2里输入文本型数据，

当Z（I）里输入“合计”时，希望同时累计E（1）~E（I-1）输入到E（I）里去。

不知道这代码如何编写？

这是个动态的累计相加的问题，不是固定的！最好是Z（I）。CHANGE 事件！

不太明白你的意思？？？

应该不难理解啊？

就是几个文本框的数值累计相加问题啊？

只不过，这是几个呢？不确定！

简单的已确定文本框个数的数值相加，代码编写很简单，

但这里的数值相加的个数不是确定的，而是由另外的文本型数据的文本框数据来确定这个个数！

Private sub Z_CHANGE (Index As Integer)
if z(index).text="合计" then
for i = 0 to index
e(index)= e(index) + e(i)
next i
end if
end sub

你试试

我的"Z_CHANGE "是z1.text、z2.text、z3.text......z10.text

并不是Z（1）.text、z(2).text、z(3).text......z(10).text啊！

E1。TEXT也一样的！

没有扩号啊！

晕 你不是说是10个text1 10个text2吗? 脑子能不能转个弯

能用数组那么简单 干吗不用

但是，我给TEXT改名时改不起来啊！

难道就用TEXT1。TEXT复制生成TEXT1（0）。TEXT。。。TEXT1（10）。TEXT么？

Yes

修改 index 属性 也可以

Private sub text1(index)_CHANGE (Index As Integer)
dim i as integer
if z(index).text="合计" then
for i = 0 to index
val(text1(index))= val(text1(index)+ val(text1(i)
next i
end if
end sub

执行时,怎么出现这样的对话框:

返回....对象..啊?

错在哪啊?

我想在VB里导入一个EXCEL来,然后在EXCEL里操作,可能比较方便写!

然后对各框进行同样的定义和输入相同的命令!