【求助】动态数组下标越界该怎样解决呢？

waleel

大神，我想做一个能将excel表中的英文单词随机选择一个呈现再标签里的小程序。思路是：
将所选单元格的所有单词都放进一个动态数组中，然后随机选择一个下表，选择相应下表的数据在标签里呈现，可是运行后总是报错“下标越界”，我该怎样改正呢?
代码如下：
Private Sub CommandButton1_Click()
Dim rng As Range, n As Integer, m As Integer, a() As String
n = 1
For Each rng In Range("a1:a5")
   a(n) = rng.Value
   n = n + 1
Next rng
x = WorksheetFunction.Rnd() * 100 / 5
text1box1.Text = a(x)
End Sub

kkf5560

循环开始添加ReDim Preserve a(1 To n)因为你只定义了动态数组,但是没有给他划定边界,当然会越界了,还有rnd直接使用即可不用workfunction

liulang0808

Private Sub CommandButton1_Click()
Dim rng As Range, n As Integer, m As Integer, a() As String
Randomize
x = Int(Rnd() * 100) Mod 6 + 1
TextBox1.Text = Cells(x, 1)
End Sub
楼主看看。理解对不对吧