VB.NET parallel arrayからの取り出し方

質問

VB.NET　初心者ですのでお手やわらかにお願いいたします。
今週の売利上げを各商品ごとにTextboxへInputします。それをSortして一番売り上げ数の高い数字とその商品名をLabelHighNumberとLabeItemlNameに出します。分かりやすいように3商品と簡単な数字を使いますのでご了承ください。input数字はすでにToInt32でConvertしてあるもとします。どうもこれでは、Sort後、売り上げ個数の高い１８だけ引っ張ってきてOrangeがでてきません。Arrayの中で二つがつながってないんでしょうか。　商品名はすでにLabelでscreenにでていますので、売り上げ個数だけのInputになります。
このようなイメージです。
Apple　10
Banana 5
Orange 18

Dim strItemName() as string {"Apple", "Banana","orange"}
Dim intInputProductNumber() as integer {10, 5, 18}　
Dim intIndexLocaion as integer

’一番高いIndexをとるためSortしました
Array.Sort（inInputProductNumber)
'ここでIndexが一番大きい２をとりました。(0,1,2の中で）
intIndexLocation = inputProductNumber (2)
'ここでは１８と出てきます。
me.LabelHighNumber.text = indIndexLocation.toString
’しかし、Orangeとはでてきません。
me.LabelItemName.text = strProductName(intIndexLocation)

よろしくご教示お願いいたします。

回答No.1

n-jun · ベストアンサー

たぶんですけど。

Array.Sort メソッド (Array, Array)
http://msdn.microsoft.com/ja-jp/library/85y6y2d3(v=VS.80).aspx

から、

Dim a() As String = {"Apple", "Banana", "Orange"}
Dim b() As Integer = {3, 5, 2}

MsgBox(a(2) & "__" & b(2))

Array.Sort(b, a)

MsgBox(a(2) & "__" & b(2))

こんな感じでしょうか？

お礼

あまりの興奮？のため　”補足”欄にお礼を書いてしまいました。

補足

動きましたよ。。～～～
これで月曜までの提出が間に合いました。
簡単なことを知らないというのが経験不足ですね。これからもn-junも含めて皆様よろしくお願いいたします。
ほんとうにありがとうございました。