|
- .版本 2
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 A, 文本型, , "0"
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- A = { “Hello World!中文测试”, “Test123”, “中文测试”, “易语言置入代码测试” }
- 输出调试文本 (文本数组查询 (A, -1, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 0, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 1, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 2, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 3, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 4, “访问越界”))
- 输出调试文本 (文本数组查询 (A, 5, ))
- .子程序 文本数组查询, 文本型, 公开, 访问一个文本型数组,返回文本型
- .参数 文本数组, 文本型, 数组, 欲访问的文本数组
- .参数 下标, 整数型, , 下标从0开始
- .参数 越界返回文本, 文本型, 可空, 下标小于0或大于等于数组成员数返回该文本
- 置入代码 ({ 83, 139, 69, 8, 139, 93, 12, 139, 0, 59, 88, 4, 115, 5, 131, 251, 0, 115, 7, 139, 69, 16, 139, 0, 235, 6, 131, 192, 8, 139, 4, 152, 91, 201, 194, 12, 0 })
- ' push ebx
- ' mov eax,[ebp+8]
- ' mov ebx,[ebp+12]
- ' mov eax,[eax]
- ' .if ebx >= [eax+4] || ebx < 0
- ' mov eax,[ebp+16]
- ' mov eax,[eax]
- ' jmp ASM_END
- ' .endif
- ' add eax,8
- ' mov eax,[eax+ebx*4]
- ' ASM_END:
- ' pop ebx
- ' leave
- ' retn 12
- 返回 (“”)
复制代码 |
|