繰り返し処理について。

環境/言語:[環境：XP,使用言語：VB.NET]
分類:[.NET]

2011/08/21(Sun) 16:53:44 編集(投稿者)

A01.NOとB01.NOが合致した場合に、KOKUGOとSUUGAKUの点数をそれぞれの配列に格納したいのですが、
A01.NOとB01.NOのデータの並びが同じ時は、下記のソースで処理可能なのですが、
A01.NOとB01.NOの下記のようなデータの並びが異なる場合の処理が分かりません。

VB.NET初心者なもので、どなたかご教授頂けませんでしょうか。

A01データ
NO
1
2
3
4
5

KOKUGO
69
56
75
23
89

SUUGAKU
56
78
57
98
54

B01データ
NO
3
1
5
2
4

Structure SmpA
Dim NO As Integer 'ナンバー
Dim KOKUGO As Integer '国語
　Dim SUUGAKU As Integer '数学
End Structure

Structure SmpB
Dim NO As Integer 'ナンバー
End Structure

Private A01() As SmpA
Private B01() As SmpB

Dim KOKUGO() As Integer 
Dim SUUGAKU() As Integer 
ReDim Preserve x(A01.Length)
ReDim Preserve y(A01.Length)

For i = 0 To A01.Length - 1
　If A01(i).NO = B01(j).NO Then
　KOKUGO(i) = A01(i).KOKUGO 
SUUGAKU(i) = A01(i).SUUGAKU
j += 1
End If

この投稿はマルチポストです。

●マルチポストされている場所
http://bbs.wankuma.com/index.cgi?mode=al2&namber=61593

----------
この掲示板ではマルチポストが禁止されています。詳しくは、「書き込みのマナーについて」をお読みください。

●書き込みのマナーについて
http://dobon.net/vb/bbs/index.html

※謝罪して解決済みにすることはしないでください。さらなるルール違反になります。

■No28921に返信(（報告）さんの記事)
> この投稿はマルチポストです。
>
> ●マルチポストされている場所
> http://bbs.wankuma.com/index.cgi?mode=al2&namber=61593
>
> ----------
> この掲示板ではマルチポストが禁止されています。詳しくは、「書き込みのマナーについて」をお読みください。
>
> ●書き込みのマナーについて
> http://dobon.net/vb/bbs/index.html
>
> ※謝罪して解決済みにすることはしないでください。さらなるルール違反になります。

申し訳ございません。
以後、気を付けます