PrivateSubCommand1_Click()
Dimarr(1To20),i
Fori=1To20
Randomize
arr(i)=Int(Rnd*101)
Next
fcarr
PrintJoin(arr,vbNewLine)'自己修改,我是直接打印的可以分開
EndSub
Functionfc(arr)
Dimi,j,t
Fori=LBound(arr)ToUBound(arr)-1
Forj=i+1ToUBound(arr)
IfVal(arr(i))t=arr(i):arr(i)=arr(j):arr(j)=t
EndIf
Next
Next
EndFunction