Private Sub Command2_Click()
    Dim b(1 To 20) As Integer, i%
    For i = 1 To 20
    b(i) = Int(Rnd * 101)
    Next i
    Call PX(b())
End Sub
Sub PX(ByRef a())
    Dim a, iMax%, n%, i%, j%, t%
    n = UBound(a)
    For i = 0 To n - 1
      iMax = i
      For j = i + 1 To n
        If a(j) > a(iMax) Then iMax = j
        Next j
        t = a(i)
        a(i) = a(iMax)
        a(iMax) = t
      Next i
      For i = LBound(a) To UBound(a)
        Print a(i);
      Next
End Sub

错误在哪里？？？

好厉害！！！！
好厉害！！！！！
好厉害！！！！！！
谢谢你！

我还有一个问题，一个程序中，如果几个事件用的是同一个随机产生的数组，那么声明怎么办啊？我把每个事件都声明了一个随机产生的数组，可是每个都不一样了。怎么样声明一次，就能在一个程序中用好几次？麻烦你了。