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

用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开始是不合法的，是不能设置的。

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

百度知道啊！