VB 数値に順位をつけるプログラム

Question

以下のように配列matrix(5)が存在し、matrix(0)からmatrix(5)までなんらかの値が入っているときに、それらに順位をつけるプログラミングをしています。

ループの前後は省略させていただきます。

'選んだ要素がほかの要素に抜かされる回数をカウントする
For i As Integer = 0 To 5
rank(i) = 1
For k As Integer = 0 To 5
If matrix(i) < matrix(k) Then
rank(i) = rank(i) + 1
End If
Next
Next

これでrank(i)には順位が1から6まで入るのですが、これだと
・同じ要素番号を比較してしまっている
・matrix(0)に対しmatrix(0)からmatrix(5)までを比較したら次のループからはFor i As Integer = 1 To 5、・・・、でいい
ということからこれらを修正し、コードは長くなってもループの周回数は少なくなるようにしたいです。

色々試したのですがたぶんIf文の位置が間違っていたりでうまくいきません。コードじゃなくて日本語でもいいのでどの位置にどういうことを書けば周回数を減らせるか教えてください。

Answer 1

解決済みですので内容については言及しません。

プログラムには、計算量（オーダ(O)）という考え方があります。
プログラムの計算量を求める方法

ぜひ心の片隅に。

Answer 2

・同じ要素番号を比較してしまっている

処理としては過剰にカウントされるわけではないので問題ないのでは。
仮にif文を次のようにしたとしても処理コストは余計増えるような気がします。

If matrix(i) < matrix(k) And i <> k Then

matrix(0)に対しmatrix(0)からmatrix(5)までを比較したら次のループからはFor i As Integer = 1 To 5、・・・、でいい

先頭からループをしないと正しくカウントされないのではと思います。

とりあえずコードとしては現状のままで問題ないと思いますが、ループの回数を減らしたいとのことなので、無理やり別のコードを考えてみました。

Dim matrix_work() As Integer
matrix_work = matrix.Clone()
Array.Sort( matrix_work )
Array.Reverse( matrix_work )
for i As Integer = 0 to 5
  	rank(i) = Array.IndexOf( matrix_work, matrix(i) ) + 1
next

果たしてこれが良いコードかどうかはご自身で判断してください。