Question

VB 如何将text控件组内的数值累加

有一个text控件组想将text内的数值累加当到小于50大于text中任何一个时结束并显示结果
我的意思是说text控件组累加小于50但又要最接近50（比如，2，3，5，6，3，5，3，1，2=25和2，3，12，32，41，1，2，4，10=49）

Answer 1

先按你说的意思写代码，不知我是否理解正确。如果不对，请追加。

Private Sub Text1_Change(Index As Integer)'假设文本框名=text1,且是控件数组
dim icnt as integer
icnt=0
for i=text1.lbound to text1.ubound
icnt=icnt+val(text1(i).text)'累加text1控件数组中每个text的值
next
if icnt<50 then
for i=text1.lbound to text1.ubound
if icnt>val(text1(i).text) then
msgbox "text1控件数组累加值小于50大于其中任何一个，结果是" & icnt
exit for
end if
next
end if
end sub

追问

text1.lbound to text1.ubound什么意思？
如果for i=0 to 9
s=s text（i）.text
if s＜= 50 then exit for
next i,错在哪里了。
将你提供的代码写入command可行吗？我现在身边没有电脑。

追答

text1.lbound 是text1控件数组下限，即第1个text对象
text1.ubound 是text1控件数组上限，即最后的text对象
从第1个到最后一个循环的意思。

你的代码中，
dim s as integer '加上变量定义
for i=0 to 9 '你用0,9与使用lbound ubound差不多，只是我的用法更灵活，不用改数字了。
s=s text（i）.text '改成 s=s + val(text(i).text)
if s＜= 50 then exit for '这里仅满足了小于50，而没有考虑大于text中任何一个的情况
next i

将你提供的代码写入command可行吗？
-> 如果是command之话，请改一下事件，如下。

Private Sub Command1_Click() '这里改成Command的单击事件，原来是Text对象的值变化事件
dim icnt as integer
icnt=0
for i=text1.lbound to text1.ubound
icnt=icnt+val(text1(i).text)'累加text1控件数组中每个text的值
next
if icntval(text1(i).text) then
msgbox "text1控件数组累加值小于50大于其中任何一个，结果是" & icnt
exit for
end if
next
end if
end sub

追问

刚才在我的电脑上运行了一下，你说的很详细，谢谢
text控件组累加小于50但又要最接近50（比如，2，3，5，6，3，5，3，1，2=25和2，3，12，32，41，1，2，4，10=49）

追答

25不接近，49接近吧。
但接近的累加数量与50多大差异时算接近？
如左右差1或2等？

其实已经很简单了，在我的这段代码里改一下，就可以的，你自己试试看。

for i=text1.lbound to text1.ubound
if icnt>val(text1(i).text) then
msgbox "text1控件数组累加值小于50大于其中任何一个，结果是" & icnt
exit for
end if
next

改成

if abs(icnt-50)>=1 then '这里的1可换成你要的差异数字
msgbox "text1控件数组累加值小于50大于其中任何一个，结果是" & icnt
end if

Answer 2

sum=sum+val(text1(i).text)

Answer 3

洗洗睡吧。

Answer 4

受教了