Question

VB6.0 文本框Text1，50个控件组，如何判断是否为空？ 并把不为空的输出到Text2中

假设Text1(1)中输入数值为1，Text1(2)输入2，Text1(3)输入3，Text1(10)输入5，Text1(11)输入6，Text1(16)输入7，Text1(20)输入8，其它文本框均为空。这里输入的数值没有规律，随机输入。并且 每个文本框对应一个数值与其相乘再相加得出结果。也就是：通过判断，在Text2中输出：1×a+2×b+3×d+5×e+6×f+7×g+8×h=k，这里a、b、c、d、e、f、g、h、k也同样是数字，同样也没有规律。

Answer 1

用FOR....NEXT吧

正确代码如下：请直接复制到过程中

text2.text=""
for i=1 to 50 '控件数组索引号要从0开始，这里的i不是数组的索引号
if text1(i-1).text<>"" then
if text2.text<>"" then
text2.text=text2.text & "+" & (i-1) & "" & text1(i-1).text & "=" & val(text2.text)+val(text1(i-1).text)*(i-1)
else
text2.text=(i-1) & "×" & text1(i-1).text & "=" & val(text1(i-1).text)*(i-1)
endif
endif
next i
'注：控件数组索引号从1开始是不合法的，是不能设置的。

Answer 2

r=0
for i=1 to 50
r=r+n(i)*val(text1(i).text) '数组n为a，b，c……，如果text1(i).text为空，val(text1(i).text)为0
next i
text2.text=r

追问

我需要的是 在text2中生成非空文本框的表达式，即在Text2中输出：1×a+2×b+3×d+5×e+6×f+7×g+8×h=k，这里a、b、c、d、e、f、g、h、k也同样是数字，没有规律。 不单单是只要结果。

追答

r=0
text2.text=r""
for i=1 to 50
r=r+n(i)*val(text1(i).text) '数组n为a，b，c……，如果text1(i).text为空，val(text1(i).text)为0
if i1 then
text2.text=text2.text+"+"
text2.text=text2.text+text1(i).text+"×"+CStr (n(i))
end if
next i
text2.text=text2.text+"="+CStr (r)

Answer 3

百度知道啊！