首页技术为王按键精灵按键精灵的数组

按键精灵的数组

分类按键精灵时间2018-02-16 22:24:32发布信义之树浏览9
导读：一、一维数组Dim 道具栏(5 //定义有6个元素的数组 道具栏(0 ="小红药" 道具栏(1 ="大红药" 道具栏(2 ="小蓝药" 道具栏(3 ="大蓝药" 道具栏(4 ="屠龙刀" 道...

一、一维数组

Dim 道具栏(5)    //定义有6个元素的数组
道具栏(0)="小红药"
道具栏(1)="大红药"
道具栏(2)="小蓝药"
道具栏(3)="大蓝药"
道具栏(4)="屠龙刀"
道具栏(5)="倚天剑"
TracePrint ubound(道具栏)  //数组最大下标
TracePrint lbound(道具栏)   //数组最小下标
For i = 0 To ubound(道具栏)    //数组的遍历
    TracePrint "道具栏("&i&")="&道具栏(i)
Next

运行结果：

1
2
3
4
5
6
7
8
第8行：5
第9行：0
第11行：道具栏(0)=小红药
第11行：道具栏(1)=大红药
第11行：道具栏(2)=小蓝药
第11行：道具栏(3)=大蓝药
第11行：道具栏(4)=屠龙刀
第11行：道具栏(5)=倚天剑

二、数组的复制

1
2
3
4
5
6
7
8
9
Dim a(2)
a(0) = 11
a(1) = 20
a(2) = 123
Dim b
b = a
TracePrint b(0)
TracePrint b(1)
TracePrint b(2)

运行结果：

1
2
3
第7行：11
第8行：20
第9行：123

三、多维数组

dim 包裹(4,5)
For i = 0 To ubound(包裹, 1)
    For j = 0 To ubound(包裹, 2)
        //TracePrint 407+113*i
        //TracePrint 267 + 95 * j
        //TracePrint GetPixelColor( 407+113*i,267+95*j)
        IfColor  407+113*j,267+95*i,"000000",0 then
            包裹(i,j)="没东西"
        Else 
            包裹(i,j)="有东西"
        End if
        TracePrint  "包裹......第"&(i+1)&"行,第"&(j+1)&"列......"&包裹(i,j)
    Next    
Next

运行结果：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
第12行：包裹......第1行,第1列......没东西
第12行：包裹......第1行,第2列......有东西
第12行：包裹......第1行,第3列......没东西
第12行：包裹......第1行,第4列......没东西
第12行：包裹......第1行,第5列......没东西
第12行：包裹......第1行,第6列......没东西
第12行：包裹......第2行,第1列......没东西
第12行：包裹......第2行,第2列......没东西
第12行：包裹......第2行,第3列......没东西
第12行：包裹......第2行,第4列......有东西
第12行：包裹......第2行,第5列......没东西
第12行：包裹......第2行,第6列......没东西
第12行：包裹......第3行,第1列......没东西
第12行：包裹......第3行,第2列......有东西
第12行：包裹......第3行,第3列......有东西
第12行：包裹......第3行,第4列......有东西
第12行：包裹......第3行,第5列......有东西
第12行：包裹......第3行,第6列......没东西
第12行：包裹......第4行,第1列......没东西
第12行：包裹......第4行,第2列......有东西
第12行：包裹......第4行,第3列......有东西
第12行：包裹......第4行,第4列......没东西
第12行：包裹......第4行,第5列......没东西
第12行：包裹......第4行,第6列......有东西
第12行：包裹......第5行,第1列......没东西
第12行：包裹......第5行,第2列......没东西
第12行：包裹......第5行,第3列......没东西
第12行：包裹......第5行,第4列......没东西
第12行：包裹......第5行,第5列......没东西
第12行：包裹......第5行,第6列......没东西

四、传递数组参数

1
2
3
4
5
6
7
8
9
10
Dim a(2)
a(0) = 1
a(1) = 2
a(2) = 3
Call 数组传递(a)
Function 数组传递(b)
    TracePrint "a(0)="&b(0)
    TracePrint "a(1)="&b(1)
    TracePrint "a(2)="&b(2)
End Function

运行结果：

1
2
3
第7行：a(0)=1
第8行：a(1)=2
第9行：a(2)=3

五、求对角线之和

1
2
3
4
5
6
7
8
9
10
Dim a(2,2)
n=1
For i = 0 To 2
    For j = 0 To 2
        a(i,j)=n
        n=n+1
        TracePrint a(i,j)
    Next   
Next
TracePrint a(0,0)+a(0,2)+a(1,1)+a(2,0)+a(2,2)

运行结果：

1
2
3
4
5
6
7
8
9
10
第7行：1
第7行：2
第7行：3
第7行：4
第7行：5
第7行：6
第7行：7
第7行：8
第7行：9
第10行：25


信义之树版权声明：以上内容作者已申请原创保护，未经允许不得转载，侵权必究！授权事宜、对本内容有异议或投诉，敬请联系网站管理员，我们将尽快回复您，谢谢合作！

按键精灵的子程序（Sub）和函数（Function） 按键精灵的找图找色命令

相关内容

更多
↑