按键精灵--二维数组的介绍和应用

二维数组的介绍和应用

二维数组注意事项： 1.必须用Dim或者ReDim来定义 2.二维数组的赋值和取值 3.二维数组最大下标 UBound(Arr,1) UBound(Arr.2),第一个为第一维的最大下标，第二个是第二维最大下标 4.多维数组的定义（了解即可） 5.数组的复制 二维数组的遍历方法有二 其一

Dim Arr(4, 9)
For j = 0 To 4
	
	For i = 0 To 9
		TracePrint"i="&i&",j="&j
		Arr(j, i) = (j + 1) & "楼" & (i + 1) & "号房间"
		TracePrint "当前房间为"&Arr(j,i)
	Next
Next

其二

j = 0
Do
	For i = 0 To 9
		TracePrint"i="&i&",j="&j
		Arr(j, i) = (j + 1) & "楼" & (i + 1) & "号房间"
		TracePrint "当前房间为" & Arr(j, i)
	Next
	j = j + 1
	If j = 5 Then 
		Exit Do
	End If
Loop

二维数组的遍历点击实例

Dim XArr(3, 5), YArr(3, 5)
MessageBox UBound(YArr,1)//取二维数组的一维最大下标
MessageBox UBound(YArr,2)//取二维数组的二维最大下标
For j = 0 To 5
	For i = 0 To 3
		XArr(i, j) = 313 + 70 * i
		YArr(i, j) = 322 + 42 * j
		Call 点击(XArr(i,j),YArr(i,j))
		Delay 500
	Next
Next

Sub 点击(x,y)
	MoveTo XArr(i, j),YArr(i, j)
	Delay 200
	LeftClick 1
End Sub

数组的复制

Dim Arr(3)
For i = 0 To UBound(Arr)
	Arr(i) = i
	
Next
b = Arr
For i = 0 To UBound(b)
	TracePrint b(i)
Next

filter函数的使用,特别提出仅适用于一维数组。其实就是一个搜索功能。

Dim Arr(3)
Arr(0) = "abcder"
Arr(1) = "ghijkl"
Arr(2) = "mnopqr"
Arr(3) = "stopqr"
getArr = filter(Arr, "opqr")
For i = 0 To UBound(getArr)
	TracePrint "getArr("&i&")="&getArr(i)//输出为getArr(0)=mnopqr,getArr(1)=stopqr
Next