>>449
じゃあお聞きするけど、桃白白が全力で実装した
バブルソートよりすぐれたソート書けるわけ？

Sub Sort(Arr)
　For I = 0 To UBound(Arr)
　　For J = 0 To UBound(Arr) - 1
　　　If Arr(J) > A(J + 1) Then
　　　　Swap A(J), A(J + 1)
　　　End If
　　Next
　Next
End Sub

Sub Swap(A, B)
　T = A
　A = B
　B = T
End Sub

これに勝てるコード書けるわけ？