for each ...next 语句可以用来给数组元素赋值吗

btt6 发布于 2016-09-14 11:09， 1112 次点击

for each ...next 语句可以用来给数组元素赋值吗,我下面这段程序为何不能给数组赋值呢，正确的应该怎么写呢

dim a(1 to 3) as integer
dim x
for each x in a
x=int(rnd*10)
next x

2 回复

ZHRXJR2016-09-14 13:27

这样给数组赋值好像不行吧？应该是这样吧？
Dim a(1 to 3) As Integer
Dim I As Integer
For I = 1 To 3
Randomize
a(I) = Int(Rnd * 10)
Next I

风吹过b2016-09-14 15:12

经测试， A（1）和地址与 X 的地址完全不对，
A（1） 6349560
X : 018F358

并且 X 的地址在运行过程中完全不改变，X占用内存，16个字节以上，估计里面再次做了内存引用。
但为啥写不进去，这个没仔细研究过。

for each ...next 设计是用来访问集合的，针对数组时，一般不建议使用。
我们说的控件数组，实际上是控件集合。
如窗体上所有的控件集合，Me.Controls