求一个VB数组问题

来源：百度知道 编辑：UC知道 时间：2024/06/02 22:13:08
做一个VB作业，有8个文本框，分别是text1(0).text到text1(7).text，里面都是数字，我想在第九个文本框得到前8个文本框中数字的和，该怎么算？我试了text2.text=val(text1(0).text+……+val(text1(7).text,为什么不对？

呵呵 可能你在语法上有点错误吧
按你所说，应该可以得到啊
代码如下：
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 0 To 7
sum = Val(Text1(i)) + sum
Next i
Text2 = sum
End Sub

最好不要用text1.text进行计算，里面可能有字符串。
设变量吧
dim a（7） as double
dim b as double
a（0）=text1(0).text
a（1）=text1(1).text
a（2）=text1(2).text
a（3）=text1(3).text
a（4）=text1(4).text
a（5）=text1(5).text
a（6）=text1(6).text
a（7）=text1(7).text
dim b as interge
for i=0 to ubound(a)
b=b+a(i)
next i
text2.text=b