.版本 2 .支持库 BmpOperate .子程序 分4分图片 .参数 欲分图片, 位图 .局部变量 ii, 整数型 .局部变量 jj, 整数型 .局部变量 填1图, 逻辑型 .局部变量 填2图, 逻辑型 .局部变量 填3图, 逻辑型 .局部变量 填4图, 逻辑型 .局部变量 填图X, 整数型 .局部变量 填图Y, 整数型 分1图片.创建 (28, 68, 24, #白色) 分2图片.创建 (28, 68, 24, #白色) 分3图片.创建 (28, 68, 24, #白色) 分4图片.创建 (28, 68, 24, #白色) ii ＝ 9 .判断循环首 (ii ＜ 164) ii ＝ ii ＋ 1 处理事件 () jj ＝ 0 ' 本源码来自三叶资源网(www.sanye.cx) .判断循环首 (jj ＜ 68) jj ＝ jj ＋ 1 处理事件 () .如果 (填1图 ＝ 假) 填图X ＝ ii － 10 分1图片.置某点颜色 (填图X, jj, 欲分图片.取某点颜色 (ii, jj)) .如果真 (ii ＝ 38) 填1图 ＝ 真 .如果真结束 .否则 .如果 (填2图 ＝ 假) 填图X ＝ ii － 51 分2图片.置某点颜色 (填图X, jj, 欲分图片.取某点颜色 (ii, jj)) .如果真 (ii ＝ 79) 填2图 ＝ 真 .如果真结束 .否则 .如果 (填3图 ＝ 假) 填图X ＝ ii － 93 分3图片.置某点颜色 (填图X, jj, 欲分图片.取某点颜色 (ii, jj)) .如果真 (ii ＝ 121) 填3图 ＝ 真 .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .否则 .如果 (填4图 ＝ 假) 填图X ＝ ii － 135 分4图片.置某点颜色 (填图X, jj, 欲分图片.取某点颜色 (ii, jj)) .如果真 (ii ＝ 163) 填4图 ＝ 真 .如果真结束 .否则 .如果结束 .如果结束 .如果结束 .如果结束 处理事件 () .判断循环尾 () 处理事件 () .判断循环尾 () 分成高16的4图1 (分1图片) 分成高16的4图2 (分2图片) 分成高16的4图3 (分3图片) 分成高16的4图4 (分4图片)