vba数组的使用

原题，编写按钮的Click过程，要求：点击按钮“统计”（command2）随机产生10个数据，范围在0-100之间的整数，通过列表框（list0）显示出来，并在文本框（text3）中显示大于50的数据个数。对控件属性做简单说明。
Option Compare Database
Option Base 1

Private Sub Command0_Click()
Dim a(10) As Integer, i As Integer, x As Integer
For i = i To 10
a(i) = Int(Rnd * 100)
List3.AddItem a(i)
Next
For i = 1 To 10
If a(i) > 50 Then x = x + 1
Next
Text1.Value = x

End Sub
错误提示 下标越界， 这是为啥? 求大神解答

你的主要问题是
1. dim a(10)相当于定义了一个长度为10的数组. 因为你用Option Base 1声明了下标从1开始, 所以dim a(10) 相当于是 dim a(1 to 10);
2. dim i as Integer,  而i没有赋给初始值时, 默认赋值为0. 所以for i = i to 10第一个就开始从0循环, 就是a(0)了, 导致数组下标越界. 
你是笔误了吧, 将for i = i to 10修改为for i = 1 to 10

你的arr数组，本是一维数组，不需要转置。

只有arr=range("a1:a" & m).value 得来的才是二维的，但是转置以后还是二维的。

用循环，用range也是可以的

for j for j =2 to 10 step 2
sheets("0" & aaa).cells(8,i)=brr(i)
for j =2 to 10 step 2
sheets("0" & aaa).range("b8").offset(0,j-2)=arr(j/2)