改善例 Public Class Form1
Dim a(4, 4) As Integer, b(24) As Integer, s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, w As String
s = 0 '総数カウンタの初期化
f1() 'ランダム行列の作成
f2() '行列内の数字の重複の検査
If s = 0 Then w = "数字の重複がありませんでした。"
If s > 0 Then
w = "数字の重複がありました。" + vbNewLine + "その数字は" + vbNewLine
For i = 0 To s - 1
w = w + b(i).ToString + " "
Next
End If
Label2.Text = w
End Sub
Sub f1()
'変数の宣言
Dim i As Integer, j As Integer
Dim w As String
'ランダム行列の発生
For i = 0 To 4
For j = 0 To 4
a(i, j) = Int(300 * Rnd()) '300は好みで調整
Next
Next
'ランダム行列の表示
For i = 0 To 4
For j = 0 To 4
If a(i, j) < 10 Then w = w + "00" + a(i, j).ToString
+ " "
If a(i, j) >= 10 And a(i, j) < 100 Then w = w + "0"
+ a(i, j).ToString + " "
If a(i, j) >= 100 Then w = w + a(i, j).ToString + " "
Next
w = w + vbNewLine
Next
Label1.Text = w
End Sub
Sub f2()
'変数の宣言
Dim i As Integer, j As Integer
'重複検査 比べる側
For i = 0 To 4
For j = 0 To 4
f3(i, j)
Next
Next
End Sub
Sub f3(ByVal p As Integer, ByVal q As Integer)
'変数の宣言
Dim i As Integer, j As Integer
'重複検査 比べられる側
For i = p To 4
If i = p Then k = q + 1
If i > p Then k = 0
For j = k To 4
If a(p, q) = a(i, j) Then
b(s) = a(i, j)
s = s + 1
End If
Next
Next
End Sub
一番最初の２９は、２９以降の６２，６４，２６，・・・，４と重複がないか調べます。
次の６２は２９とは一回比較されていますから、重複チェックは必要ありません。
６４以降と比較をすればよいわけです。
次の６４は２９と６２とは重複チェックは済んでいるので、 ２６以降の数字と比較すればよいのです。
If i = p Then k = q + 1となっているのは自分自身の次の数字と比較させるためです。
２行目以降ではどうでしょうか。
９８は前の２９～６９とは一度チェックされているので調べる必要はありません。
なので、For i = p To 4 かつ If i = p Then k = q + 1となっているのです。
つまり、９８との比較は９８ある行の９８の次の２４との比較から始まるわけです。
ではIf i > p Then k = 0 の意味は何でしょうか。９８の次行からは０列目の１０から比較させるためです。
９８と同じ行では２４と５３のみと比較すればよいのに対して、
次の行は、１０，９９，６７，１，１５７とすべてと比較する必要があります。
次の次の行もすべてと比較する必要があります。
ですから、If i > p Then k = 0
となっているわけです。
２６以降の数字と比較すればよいのです。
