算法问题,求解

[sprite19]

我有两列数据，如下

1 A
1 B
1 C
1 D
2 A
2 B
2 C
3 A
3 A
3 B


我想做的是根据第一列内容，判断第二列内容是否有重复值

比如这组数据中，有两行3 A，就要提示错误

请教我该怎么做？是否需要二维数组？

[华芸智森]

Dim Coll As New Collection
Dim ArrStr() As String = {"a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1"}

Try
For i As Int16 = 0 To ArrStr.Length - 1
Coll.Add(ArrStr(i), ArrStr(i))
Next

Catch
MsgBox("ERROR")
End Try

[leq_82]

Up
Dim Coll As New Collection
Dim ArrStr() As String = {"a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1", "a1"}

Try
For i As Int16 = 0 To ArrStr.Length - 1
Coll.Add(ArrStr(i), ArrStr(i))
Next

Catch
MsgBox("ERROR")
End Try

[华芸智森]

leq_82() ?????
抄也该改一下吧. :)