.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 验证码, 文本型 .子程序 _生成验证码按钮_被单击 生成验证码 () .子程序 生成验证码 .局部变量 i, 整数型 .局部变量 n, 整数型 画板1.清除 (, , , ) 置随机数种子 () 验证码 ＝ 取随机字母 (5) .计次循环首 (取文本长度 (验证码), i) 画板1.字体.字体大小 ＝ 取随机数 (20, 50) 画板1.文本颜色 ＝ 多项选择 (取随机数 (1, 6), #红色, #黑色, #绿色, #青绿, #青蓝, #蓝灰) .如果 (i ＝ 1) 画板1.定位写出 (1, 1, 取文本中间 (验证码, i, 1)) .否则 n ＝ n ＋ 40 画板1.定位写出 (n, 取随机数 (1, 15), 取文本中间 (验证码, i, 1)) .如果结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () 编辑框1.内容 ＝ 验证码 .计次循环首 (1000, ) 画板1.画点 (取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192)) .计次循环尾 () .计次循环首 (30, ) 画板1.画笔颜色 ＝ 多项选择 (取随机数 (1, 6), #红色, #黑色, #绿色, #青绿, #青蓝, #蓝灰) 画板1.画直线 (取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192), 取随机数 (1, 192)) .计次循环尾 () .子程序 _提交验证码按钮_被单击 .如果 (编辑框1.内容 ＝ 验证码) 信息框 (“验证码正确”, 0, , ) .否则 信息框 (“验证码错误”, 0, , ) .如果结束 .子程序 取随机字母, 文本型 .参数 随机字母数量, 整数型 .局部变量 字母, 文本型 .局部变量 取出文本, 文本型 .局部变量 返回文本, 文本型 .局部变量 i, 整数型 字母 ＝ “abcdefghijklmnopqrstuvwxyz” .计次循环首 (随机字母数量, i) 取出文本 ＝ 取文本中间 (字母, 取随机数 (1, 26), 1) 返回文本 ＝ 返回文本 ＋ 取出文本 .计次循环尾 () 返回 (返回文本) .子程序 __启动窗口_创建完毕