Question

vb程序提示下标越界, 提示是这里出错 myarray(p) = myarray(j), 可是我又不知道怎么改,求高手指点!

Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim myarray(7) As Integer
Dim i%
For i = 1 To 7
myarray(i) = Rnd() * 30
Print myarray(i)
Next i
Print
Dim j%, tmp%, p%
For i = 1 To 7
p = i
For j = i + 1 To 7
If myarray(j) < myarray(i) Then
p = j
End If
Next j
If p <> i Then
tmp = myarray(p)
myarray(p) = myarray(j)
myarray(j) = tmp
End If
For j = 1 To 7
Print myarray(j)
Next j
Print
Next i
End Sub

Answer 1

myarray(p) = myarray(j)
这里应该是
myarray(p) = myarray(i)吧
下一句myarray(j) = tmp
也应该是myarray(i) = tmp
看程序好象是要进行排序，这里的赋值是交换两个数的位置，但是这里应该是将i,p位置互换，因为j在上一个For循环中，已经被连续增长赋值为8，所以会报下标越界。
另外，感觉这个排序过程好象有点问题，等程序能运行时你试试看对不对。

Answer 2

给数组定义那句7改成8