vb删除数组的最大元素

Dim a() As Integer, n As Integer
Private Sub Command1_Click()
n = InputBox("请输入数组元素个数n")
ReDim a(1 To n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Next i
For i = 1 To n
Text1.Text = Text1.Text & Space(2) & a(i)
Next i
End Sub

Private Sub Command2_Click()
Dim max As Integer
max = a(1)
For i = 2 To n
If max < a(i) Then
max = a(i)
k = i
End If
Next i
For i = k To n - 1
a(i) = a(i + 1)
Next i
ReDim Preserve a(n - 1)
For i = 1 To n
Text2.Text = Text2.Text & Space(2) & a(i)
Next i
End Sub

为什么提示我下标越界呢？

---

For i = 1 To n
Randomize
a(i) = Int(Rnd * 90) + 10
Next i

加个randomize

---

没有啊?我复制你的代码试了,没有提示错误?

---