按键精灵如何判断两个二维数组是否相等?

Question

二维数组直接赋值怎么赋值呢？
例如：
Dim a0(8, 5)
a0 = "0,1,1,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,1,1,0"
这样呢？

Answer 1

打开一个记事本，测试下面脚本：
Dim sza(2, 3)
Dim szb(2, 3)
sza(1, 2) = 1
szb(1, 2) = 1
Dim pd
pd=1
For a = 0 To 2
For b = 0 To 3
SayString sza(a, b) & "--" & szb(a, b)
KeyPress "Enter", 1
If sza(a, b)<> szb(a, b) Then
pd=0
End If
Next
Next
If pd = 0 Then
SayString "有数据不相同!"
Else
SayString "所有数据都相同!"
End If追问

二维数组直接赋值怎么赋值呢？
例如：
Dim a0(8, 5)
a0 = "0,1,1,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,1,1,0"
这样呢？

追答

好像不行.

追问

那如何给他赋值呢

追答

都一样就用循环，不一样用
sza(0, 0) = 113
sza(0, 1) = 22

Answer 2

这个题目的两个主题似乎没什么关联啊