« [VB6.0] Excelの操作 | メイン | [ASP.NET] メッセージボックス表示 »

2005年09月30日

[VB6.0] 配列重複チェック

'重複チェック


For i = 1 To Cnt

    For j = 1 To Cnt - i



        If Array(i) =Array(i + j) Then

            'Array(i) とArray(i + j)が重複

            [重複の場合の処理]

        End If

        

    Next j

Next i

2005 / 09 / 30