晕，VB用的不熟，这个怎么就越界啦？
实在是想不通
大家帮忙看看

Dim num(9) As Integer
Dim i As Integer
Dim j, middle As Integer
For i = 0 To 9
num(i) = Rnd() * 90 + 10
Next i

For i = 0 To 9
middle = num(i)
j = i - 1
Do While j >= 0
If num(i) > num(j) Then
num(j + 1) = num(j)
j = j - 1
End If
Loop
num(j + 1) = middle
Next i

For i = 0 To 9
Label1.Text &= num(i) & " "
Next

[此贴子已经被作者于2007-10-11 10:43:59编辑过]

你这段
For i = 0 To 9
middle = num(i)
j = i - 1
Do While j >= 0
If num(i) > num(j) Then
num(j + 1) = num(j)
j = j - 1
End If
Loop
num(j + 1) = middle
Next i

不是死循环啦,j最后的值永远都是0

[此贴子已经被作者于2007-10-11 13:01:47编辑过]

如果 num(i) > num(j) 为false 你再看看程序。

恩，这个错误我已经找到啦，谢谢两位啦，是有死循环，while循环是会出现死循环。

但是数组越界问题在哪？

没有越界的啊! 就是死循环引起的吧