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

错误在哪里？？？

Option Explicit

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.Width = Screen.Width * 0.75
   
    Randomize
    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() As Integer)
    Dim iMax%, n%, i%, j%, t%
    n = UBound(a)
    For i = LBound(a) To n
      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

'哪里有错啊？

[ 本帖最后由 bczgvip 于 2010-6-10 16:23 编辑 ]

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

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

定义公共数组，只用一次生成随机数保存在公共数组。

请问be版主，你的带颜色程序怎么贴上去的啊？