或多或少对于数组的使用还是有┅些迷糊业务叫号系统演示了数组的应用

.程序集 窗口程序集_启动窗口 .程序集变量 程序集_号码数组, 整数型, , "0" .程序集变量 程序集_当前号码, 整数型 .子程序 _按钮_取号_被单击 ' 该源码例程来自亦行（yx）博客，由yx编写发布如由转载，请注明来源 程序集_当前号码 ＝ 程序集_当前号码 ＋ 1 加入成員 (程序集_号码数组, 程序集_当前号码) 编辑框_输出.加入文本 (“您取的号码为:” ＋ 到文本 (程序集_当前号码), #换行符) .子程序 _按钮_叫号_被单击 .局部变量 臨时_当前号码, 整数型 .如果真 (取数组成员数 (程序集_号码数组) ＞ 0) 临时_当前号码 ＝ 程序集_号码数组 [1] 删除成员 (程序集_号码数组, 1, 1) 编辑框_输出.加入文本 (“开始处理:” ＋ 到文本 (临时_当前号码) ＋ “.”, #换行符) .子程序 _按钮_查看任务_被单击 编辑框_输出.加入文本 (“开始列举所有任务:”, #换行符) 编辑框_输絀.加入文本 (“正等待人数:” ＋ 到文本 (取数组成员数 (程序集_号码数组)), #换行符) 编辑框_输出.加入文本 (“所有任务列举完毕”, #换行符) .子程序 _按钮1_被單击 清除数组 (程序集_号码数组) 编辑框_输出.内容 ＝ “” 编辑框_输出.内容 ＝ “当前所有任务清除完毕” ＋ #换行符 .子程序 _按钮_取号1_被单击 编辑框_輸出.加入文本 (“处理完毕”, #换行符)