Question

vb 8个文本框用控件数组text按计算按钮，求出8个文本框的和在信息提示框中显示

Answer 1

dim m,n
for i=0 to7
m=text1(i)
n=n+m
next i
text2.text=n
试试吧

Answer 2

dim sum as double
sum=0
for int i=0 to 7
if IsNumeric(text1(i)) then
sum = sum + text1(i)
else
text2.text = "0"
msgbox "存在非数字格式!无法计算!"
exit sub
end if
text2.text = sum
exit sub

Answer 3

private sub command1_click()
for a = 0 to 7
b=b+val(text1(a).text)
next a
msgbox b
end sub
"8个控件数组text