VB这个程序为什么下标越界

关键字：越界 更新时间：2018-03-14 14:50:42 240次访问

现在完全正常了：

Private Sub Command1_Click()

Dim a() As Integer, j As Integer, n As Long, i As Integer, s As Integer, k As Integer, x As Integer

n = Val(InputBox("in n:"))

ReDim a(n)

For i = 1 To n

a(i) = Int(Rnd * 100) "【调试显示此处下标越界，想不通为什么】

Print Format(a(i), "@@@@");

 Next i

s = Val(InputBox("in s:"))

For k = 1 To n

If s = a(k) Then Exit For

Next k

If k > n Then

MsgBox ("数组中没有该数")

Else

For j = k To n - 1

a(j) = a(j + 1)

Next j

n = n - 1

ReDim Preserve a(n)

Print

Print "删除后的结果："

For x = 1 To n

Print Format(a(x), "@@@@");

Next x

End If

End Sub

相关标签：越界