关键词随机组合

窦源君

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

XP风格 (1)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组1	文本型		0
数组2	文本型		0
计次	整数型

数组1 ＝ 分割文本 (编辑框4.内容, #换行符, )
编辑框4.内容 ＝ “”
置随机数种子 ()
判断循环首 (取数组成员数 (数组1) ＞ 0)
计次 ＝ 取随机数 (1, 取数组成员数 (数组1))
编辑框4.加入文本 (数组1 [计次] ＋ #换行符 )
删除成员 (数组1, 计次, )
判断循环尾 ()
数组2 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框1.内容 ＝ “”
置随机数种子 ()
判断循环首 (取数组成员数 (数组2) ＞ 0)
计次 ＝ 取随机数 (1, 取数组成员数 (数组2))
编辑框1.加入文本 (数组2 [计次] ＋ #换行符 )
删除成员 (数组2, 计次, )
判断循环尾 ()
数组1 ＝ 分割文本 (编辑框4.内容, #换行符, )
数组2 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
判断 (取数组成员数 (数组1) ≤ 取数组成员数 (数组2))
计次循环首 (取数组成员数 (数组1), 计次)
编辑框2.加入文本 (数组1 [计次] ＋ 数组2 [计次] ＋ “,”)
计次循环尾 ()
判断 (取数组成员数 (数组1) ＞ 取数组成员数 (数组2))
信息框 (“【地域名】的数量必须小于或等于【关键词】数量”, 0, , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

编辑框2.内容 ＝ “”
编辑框4.内容 ＝ “”

i支持库列表	支持库注释
xplib	XP风格界面库

.版本 2<br /> .支持库 xplib<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (1)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组1, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> <br /> 数组1 ＝ 分割文本 (编辑框4.内容, #换行符, )<br /> 编辑框4.内容 ＝ “”<br /> 置随机数种子 ()<br /> .判断循环首 (取数组成员数 (数组1) ＞ 0)<br /> 计次 ＝ 取随机数 (1, 取数组成员数 (数组1))<br /> 编辑框4.加入文本 (数组1 [计次] ＋ #换行符)<br /> 删除成员 (数组1, 计次, )<br /> .判断循环尾 ()<br /> <br /> 数组2 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框1.内容 ＝ “”<br /> 置随机数种子 ()<br /> .判断循环首 (取数组成员数 (数组2) ＞ 0)<br /> 计次 ＝ 取随机数 (1, 取数组成员数 (数组2))<br /> 编辑框1.加入文本 (数组2 [计次] ＋ #换行符)<br /> 删除成员 (数组2, 计次, )<br /> .判断循环尾 ()<br /> <br /> <br /> 数组1 ＝ 分割文本 (编辑框4.内容, #换行符, )<br /> 数组2 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框2.内容 ＝ “”<br /> <br /> .判断开始 (取数组成员数 (数组1) ≤ 取数组成员数 (数组2))<br /> .计次循环首 (取数组成员数 (数组1), 计次)<br /> 编辑框2.加入文本 (数组1 [计次] ＋ 数组2 [计次] ＋ “,”)<br /> .计次循环尾 ()<br /> .判断 (取数组成员数 (数组1) ＞ 取数组成员数 (数组2))<br /> 信息框 (“【地域名】的数量必须小于或等于【关键词】数量”, 0, , )<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 编辑框2.内容 ＝ “”<br /> 编辑框4.内容 ＝ “”

lyw1989

666666666666666666

wsnlz478

窦源君 发表于 2016-4-19 15:18
不是有源码吗

新手正在学、、前台界面看不到、、就没弄明白

窦源君

wsnlz478 发表于 2016-4-13 17:50
给个压缩包吧

不是有源码吗

wsnlz478

给个压缩包吧

xiuzeli

支持一下