C# と VB.NET の質問掲示板

score値でdatもソートしたいのですが上手く行きません。
お願いします。

            Dim dat(100) As String
            Dim score(100) As Single
            For Loop1 = 1 To datS
                For Loop2 = 0 To datS - Loop1
                    If score(Loop2) < score(Loop2 + 1) Then
                        Dim temp As Single = score(Loop2)
                        Dim tempD As String = dat(Loop2)
                        score(Loop2) = score(Loop2 + 1)
                        dat(Loop2) = dat(Loop2 + 1)
                        score(Loop2 + 1) = temp
                        dat(Loop2 + 1) = tempD
                    End If
                Next
            Next

> 上手く行かなかったのでお尋ねしたのです。

上手くいかなかったのであれば、その試してみたコードを提示して、
「こういうコードを書いてみたがこういう結果になった、何故か」
という風に書いていただければ良いかと思います。
隣の席にいるわけではないので、書いていただけなければ質問者さんが
試してみたかどうかも分かりません。

ちなみにコードを提示する場合は回答者が確認しやすい形にしていただければ
追試もしやすく回答もつけやすくなります。
今回であれば、datとscoreの件数を制限して直接埋め込むなど。

Dim dat() = {"a", "b", "c"}
Dim score() = {10.3F, 20.4F, 3.0F}
Array.Sort(score, dat)
For i = 0 To score.Length - 1
    Trace.WriteLine(String.Format("{0}={1}", dat(i), score(i)))
Next