简易排序-初级程序-极语言教程

//窗体代码:

整数 窗体,按钮1,标签2;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-417)>>1,上=(桌面.高-321)>>1;
窗体=创建窗口($100,程序.名称,"单线程排序",$14CF0064,左,上,417,321,0,0,0,0);
按钮1=创建窗口($0,"Button","测试",$50000000,155,105,70,35,窗体,1,3,0);
标签2=创建窗口($0,"Static","毫秒",$50000001,80,55,250,20,窗体,2,2,0);
窗体启动;读取消息
结束

 

//程序代码:

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键 测试排序
否则{处理窗口(窗口,消息,参数,数据)}
结束;整数 测试(10)={40,10,100,90,20,25,88,56,33,12};
小程序 窗体启动
桌面.左=窗体
读取消息
结束;
小程序 测试排序
    整数 缓存=申请内存(128)
    整数 指针=缓存,值,内容=@测试
    排序(内容,10,4,@比较)
循环数组(值<内容(10)&)
指针+格式化(指针,"%d ",值)
改窗口字(标签2,缓存)
释放内存(缓存)
结束;
小程序 比较
指令[8B45088B4D0C8B002B01]
结束;