帮你调试了下:
Private Sub Form_Click()
Dim a(0 To 19), i%
For i = 0 To 19
a(i) = Int(Rnd * 101)
Print a(i);
Next i
Call s(a, max)
Print ""
For i = LBound(a) To UBound(a)
Print a(i);
Next i
End Sub
Sub s(a(), max)
Dim i%, imax%, n%, j%, t%
n = UBound(a)
For i = LBound(a) 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
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024