按键精灵如何判断两个二维数组是否相等? 25
二维数组直接赋值怎么赋值呢?例如:Dima0(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,...
二维数组直接赋值怎么赋值呢?
例如:
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"
这样呢? 展开
例如:
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"
这样呢? 展开
2个回答
展开全部
打开一个记事本,测试下面脚本:
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 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"
这样呢?
追答
好像不行.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |