.版本 2 .支持库 BmpOperate .子程序 create_verify_code, , , 岁月无声 - 11.01/2017 .参数 yzm, 字节集 .参数 id, 文本型 .局部变量 pic_object, 对象 .局部变量 id_, 文本型, , "0" .局部变量 title_, 文本型, , "0" .局部变量 title_pic, 图片框 .局部变量 bitmap, 位图 .局部变量 temp_bitmap, 位图 .局部变量 pic, 图片框, , "4,8" .局部变量 new_pic, 图片框, , "4,8" .局部变量 pic_byte, 字节集, , "4,8" .局部变量 new_pic_byte, 字节集, , "8,4" .局部变量 i, 整数型 .局部变量 j, 整数型 .局部变量 k, 整数型 .局部变量 split, 文本型, , "0" .局部变量 temp_img, 字节集 id_ ＝ 分割文本 (id, “|”, ) title_ ＝ 分割文本 (“1.1|1.2|1.3|1.4|2.1|2.2|2.3|2.4|3.1|3.2|3.3|3.4|4.1|4.2|4.3|4.4|5.1|5.2|5.3|5.4|6.1|6.2|6.3|6.4|7.1|7.2|7.3|7.4|8.1|8.2|8.3|8.4”, “|”, ) pic_object.创建图片对象 (yzm) yzm ＝ pic_object.取回图片 () temp_bitmap.载入数据 (yzm) bitmap.创建 (64, 30, 32, ) temp_bitmap.复制到 (0, 0, 64, 30, bitmap, 0, 0, ) 复制窗口组件 (图片框, title_pic) title_pic.可视 ＝ 真 title_pic.禁止 ＝ 真 title_pic.左边 ＝ 120 title_pic.顶边 ＝ -5 title_pic.宽度 ＝ 100 title_pic.高度 ＝ 30 title_pic.图片 ＝ 子字节集替换 (bitmap.取位图数据 (), { 255 }, { 240 }, , ) bitmap.创建 (256, 128, 32, ) temp_bitmap.复制到 (0, 30, 256, 128, bitmap, 0, 0, ) temp_bitmap.创建 (32, 32, 32, ) .计次循环首 (4, i) .计次循环首 (8, j) bitmap.复制到 ((j － 1) × 32, (i － 1) × 32, 32, 32, temp_bitmap, 0, 0, ) 复制窗口组件 (图片框, pic [i] [j]) pic [i] [j].可视 ＝ 真 pic [i] [j].左边 ＝ 2 ＋ (j － 1) × 32 pic [i] [j].顶边 ＝ 25 ＋ (i － 1) × 32 pic [i] [j].鼠标指针 ＝ { 14, 0, 0, 0 } pic_byte [i] [j] ＝ temp_bitmap.取位图数据 () .计次循环尾 () .计次循环尾 () 重定义数组 (new_pic, 真, 8, 4) 重定义数组 (new_pic_byte, 真, 8, 4) .变量循环首 (0, 16, 16, i) .变量循环首 (1, 8, 2, j) k ＝ k ＋ 1 new_pic_byte [k] [1] ＝ pic_byte [i ＋ j] new_pic_byte [k] [2] ＝ pic_byte [i ＋ j ＋ 1] new_pic_byte [k] [3] ＝ pic_byte [i ＋ j ＋ 8] new_pic_byte [k] [4] ＝ pic_byte [i ＋ j ＋ 8 ＋ 1] new_pic [k] [1] ＝ pic [i ＋ j] new_pic [k] [2] ＝ pic [i ＋ j ＋ 1] new_pic [k] [3] ＝ pic [i ＋ j ＋ 8] new_pic [k] [4] ＝ pic [i ＋ j ＋ 8 ＋ 1] .变量循环尾 () .变量循环尾 () 清除数组 (pic) 清除数组 (pic_byte) .计次循环首 (取数组成员数 (id_), i) split ＝ 分割文本 (title_ [i], “.”, ) j ＝ 到整数 (split [1]) k ＝ 到整数 (split [2]) temp_img ＝ new_pic_byte [j] [k] split ＝ 分割文本 (id_ [i], “.”, ) j ＝ 到整数 (split [1]) k ＝ 到整数 (split [2]) new_pic [j] [k].图片 ＝ temp_img .计次循环尾 ()