超简单的多线程注册例子

这个线程节省了很多乱七八糟的变量，什么线程数量-1或加1啥的感觉狠绕，不适合我们这些小白们学习。

线程_进入许可区 (许可证) ' 组件得加个许可证，若不然会有遗漏或其它乱七八糟的问题
执行数量 ＝ 超级列表框1.取表项数 () ' 取表项数量
.如果真 (执行数量 ≥ 到整数 (编辑框_数量.内容)) ' 当表项数大于或等于注册数量，将跳出循环。
线程_退出许可区 (许可证)
跳出循环 ()
.如果真结束
sy ＝ 超级列表框1.插入表项 (, , , , , )
随机邮箱 ＝ 文本_取随机字母 (6, 2) ＋ 文本_取随机数字 (2, ) ＋ “@163.com”
随机密码 ＝ 文本_取随机字母 (6, 2) ＋ 文本_取随机数字 (2, )
超级列表框1.置标题 (sy, 0, 到文本 (sy ＋ 1))
超级列表框1.置标题 (sy, 1, 随机邮箱)
超级列表框1.置标题 (sy, 2, 随机密码)
超级列表框1.置标题 (sy, 3, “正在注册”)
线程_退出许可区 (许可证) ' 插入超级列表框以后，退出许可证，为什么许可证不写在注册下面呢，因为加在下面跟单线程没区别啦。
注册结果 ＝ 注册子程序 (随机邮箱, 随机密码)
超级列表框1.置标题 (sy, 3, 选择 (注册结果 ＝ 真, “注册成功”, “注册失败”))
超级列表框1.保证显示 (sy)