vb数组的语句

来源:百度知道 编辑:UC知道 时间:2024/09/23 06:22:08
用for each ...next语句,求1+2+3....+100的值
Private Sub Command1_Click()
Dim x(100), a
For i = 1 To 100
x(i) = i
Next
For Each a In x()
s = s + a
Next
Label1.Caption = s
End Sub
请问为什么这个题目是对的For Each a In x(),x是一个数组名,没有括号和上下界,那这里为什么加一个括号是正确的和没有加运算的结果是一样的

Private Sub Command1_Click()
Dim x(100), a
For i = 1 To 100
x(i) = i
Next
For Each a In x'把括号去掉
s = s + a
Next
Label1.Caption = s
End Sub

就应为他是一个组数了,所以才可以这样调用,他会从组数开始循环到组数结束,如果你填上数字就会出错了,他本来就需要以数组循环的