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

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