| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 更新验证码 | ‘更新验证码的子程序，方便调用 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | ’计数变量1 | ||||
| 随机标签1 | 整数型 | ’第一个相同的字母的数组下标（索引） | ||||
| 随机标签2 | 整数型 | ’第二个相同的字母的数组下标（索引） | ||||
| 随机文本1 | 文本型 | ’第一个相同的字母 | ||||
| 随机文本2 | 文本型 | ’第二个相同的字母 | ||||
| j | 整数型 | ’计数变量2 | ||||
计次循环首 (8, i)
标签 [i].标题 ＝ “” ' 标题清空标签 [i].边框 ＝ 5 ' 边框为单线条标签 [i].字体.字体大小 ＝ 取随机数 (10, 36) ' 设置字体范围标签 [i].文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255)) ' ........以下属性自己看控件的属性列表，不多作解释标签 [i].渐变背景方式 ＝ 取随机数 (1, 8)标签 [i].渐变背景颜色1 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))标签 [i].渐变背景颜色2 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))标签 [i].渐变背景颜色3 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))标签 [i].横向对齐方式 ＝ 取随机数 (0, 2)标签 [i].纵向对齐方式 ＝ 取随机数 (0, 2)
计次循环尾 ()随机标签1 ＝ 取随机数 (1, 8) ' 设置第一个相同数的索引
随机标签2 ＝ 取随机数 (1, 8)
判断循环首 (随机标签1 ＝ 随机标签2) ' 判断这两个字母相等就让第二个相同的字母改成不同的字母，如果字母相等会一直死在循环里，直到不相等跳出循环随机标签2 ＝ 取随机数 (1, 8)判断循环尾 ()' 设置第一个相同字母的内容
如果 (取随机数 (1, 2) ＝ 1)
随机文本1 ＝ 文本_取随机字母 (1, 0)
随机文本1 ＝ 文本_取随机字母 (1, 1)
如果 (取随机数 (1, 2) ＝ 1)随机文本2 ＝ 到小写 (随机文本1)随机文本2 ＝ 到大写 (随机文本1)' 设置第一个相同标签的内容 = 第一个相同字母
标签 [随机标签1].标题 ＝ 随机文本1
标签 [随机标签2].标题 ＝ 随机文本2
' 第一次修改其他不相等的字母标签，但可能会产生两组相等的字母，一组是上面的代码生成的，另外一组是第一次的这段代码生成的
计次循环首 (8, i)如果真 (i ≠ 随机标签1 且 i ≠ 随机标签2)如果 (取随机数 (1, 2) ＝ 1)标签 [i].标题 ＝ 文本_取随机字母 (1, 0)标签 [i].标题 ＝ 文本_取随机字母 (1, 1)判断循环首 (到小写 (标签 [i].标题) ＝ 到小写 (标签 [随机标签1].标题))如果 (取随机数 (1, 2) ＝ 1)标签 [i].标题 ＝ 文本_取随机字母 (1, 0)标签 [i].标题 ＝ 文本_取随机字母 (1, 1)判断循环尾 ()
计次循环尾 ()' 重要！！！！！！！第二次修改其他不相等的字母，消除重复的字母，只存在一组相等的字母
计次循环首 (7, i)计次循环首 (7 － i ＋ 1, j)如果真 (到小写 (标签 [i].标题) ＝ 到小写 (标签 [i ＋ j].标题)) ' 去除修改第一个相等字母的索引和第二个相等字母的索引的这种情况如果真 (i ＝ 随机标签1 且 i ＋ j ＝ 随机标签2)跳出循环 ()
如果真 (i ＝ 随机标签2 且 i ＋ j ＝ 随机标签1)跳出循环 ()如果 (取随机数 (1, 2) ＝ 1)标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 0)标签 [i ＋ j].标题 ＝ 文本_取随机字母 (1, 1)计次循环尾 ()计次循环尾 ()