>>518 続き

' VBScript で 3583 秒
Sub Sort(Arr)
　Dim I, J, u, tmp
　u = UBound(Arr)
　For I = 0 To u
　　For J = 0 To u - 1
　　　If Arr(J) > Arr(J + 1) Then
　　　　tmp = Arr(J)
　　　　Arr(J) = Arr(J + 1)
　　　　Arr(J + 1) = tmp
　　　　End If
　　Next
　Next
End Sub