只是试图检测双数组是否在每一行中都有连续的重复数据。我不确定为什么我的代码不起作用,任何帮助都将受到高度赞赏
For R As Integer = 0 To num - 1
Dim RowClashes As Integer = 0
For C1 As Integer = 0 To num - 2
For C2 As Integer = C1 + 1 To num - 1
If MyTeacherArray(R, C1) = MyTeacherArray(R, C2) Then
RowClashes += 1
End If
Next
Next
MessageBox.Show("Period " & R & ":" & RowClashes)
Next
谢谢
答案 0 :(得分:0)
您可以使用所有数组生成一个字符串,并将其转换为md5。 之后,您只需要比较md5哈希值。
答案 1 :(得分:0)
您的代码看起来好像要遍历所有行,并且在每一行中检查是否有多个具有给定值的单元格(即两个或更多单元格相等)。
如果这是正确的,请注意所有三个循环都达到相同的限制,即num - 1
。您的表是否具有相同的行数和列数?如果没有,那就有一个错误。
由于您没有解释为什么不起作用,我无法进一步阐述。