VB.NET 2つの配列を連動して並び替える

VB.NETで2つの配列の一方を文字列の長い順番に並び替えて
他方の配列もその順番に並び替えたいのですが
どのようにすればよろしいでしょうか。

例えば、

A(0)="Japan"
A(1)="America"
A(2)="People's Republic of China"
A(3)="Republic of Korea"
A(4)="Democratic People's Republic of Korea"

B(0)="Tokyo"
B(1)="Washington, D.C."
B(2)="Beijing"
B(3)="Seoul"
B(4)="Pyongyang"

という2つの配列があって
配列A()を文字列の長い順番に並び替えると

A(0)="Democratic People's Republic of Korea"
A(1)="People's Republic of China"
A(2)="Republic of Korea"
A(3)="America"
A(4)="Japan"

となりますが、この時配列B()も以下のように
配列A()の順番と同じ順番になってほしいのです。

B(0)="Pyongyang"
B(1)="Beijing"
B(2)="Seoul"
B(3)="Washington, D.C."
B(4)="Tokyo"

なお、配列A()の並べ替えは以下のようにしていますので
できましたら、このコードに追記する感じで
教えていただけるとありがたいです。
よろしくお願いします。

------------------------------------------------------
Module Module1

Sub Main()

Dim A(4) As String
Dim B(4) As String

A(0) = "Democratic People's Republic of Korea"
A(1) = "People's Republic of China"
A(2) = "Republic of Korea"
A(3) = "America"
A(4) = "Japan"

B(0) = "Pyongyang"
B(1) = "Beijing"
B(2) = "Seoul"
B(3) = "Washington, D.C."
B(4) = "Tokyo"

Dim comp As New LengthComparer()
Array.Sort(A, comp)

For Each s As String In A
Console.WriteLine(s)
Next

End Sub

Public Class LengthComparer

Implements System.Collections.IComparer
Implements System.Collections.Generic.IComparer(Of String)

Public Function Compare(ByVal x As String, ByVal y As String) As Integer _
Implements System.Collections.Generic.IComparer(Of String).Compare
If y Is Nothing AndAlso x Is Nothing Then
Return 0
End If
If y Is Nothing Then
Return -1
End If
If x Is Nothing Then
Return 1
End If
Return y.Length.CompareTo(x.Length)
End Function

Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
Implements System.Collections.IComparer.Compare
If y Is Nothing AndAlso x Is Nothing Then
Return 0
End If
If y Is Nothing Then
Return -1
End If
If x Is Nothing Then
Return 1
End If
If Not (TypeOf y Is String) Then
Throw New ArgumentException("String型でない", "y")
ElseIf Not (TypeOf x Is String) Then
Throw New ArgumentException("String型でない", "x")
End If
Return Me.Compare(DirectCast(y, String), DirectCast(x, String).Length)
End Function

End Class

End Module

------------------------------------------------------

No.1 ベストアンサー 回答者： Picosoft 回答日時： 2013/04/10 16:34

MSDNに目を通しましたか？

http://msdn.microsoft.com/ja-jp/library/2b9cyk6x …

この回答へのお礼

以前はMSDNにも目を通していたのですが
MSDNは読んでいても説明が分かりにくくて
もっと分かりやすく説明されているものを探す
というような経験を何度か繰り返しているうちに
最近はGoogleでMSDN以外のものを調べるような
習慣がついてしまっていたのですが、
今回はMSDNを見るべきでした。
ありがとうございました。

お礼日時：2013/04/11 08:44