博客展示了一段代码，定义了二维数组 resoult ，通过嵌套循环遍历 WebData 和 data 数组进行比较。若对应元素不同，将 data 数组元素存入 resoult ，并使用 reporter 报告错误数据，最后通过 MsgBox 显示结果。
Dim resoult(100,100)
For i=1 to NumRow
For j= 1 to NumColumns
If ( WebData(i-1,j-1)<> data(i-1,j-1)) Then
resoult(i,j) = data(i-1,j-1)
reporter.ReportEvent micFail,"the resoult of the array
compares","the wrong datas are:" & resoult(i,j) & ""
End If
Next
Next
MsgBox resoult(i,j)
For i=1 to NumRow
For j= 1 to NumColumns
If ( WebData(i-1,j-1)<> data(i-1,j-1)) Then
resoult(i,j) = data(i-1,j-1)
reporter.ReportEvent micFail,"the resoult of the array
compares","the wrong datas are:" & resoult(i,j) & ""
End If
Next
Next
MsgBox resoult(i,j)
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
