|
发表于 2013-1-18 20:07:15
|
显示全部楼层
河北省廊坊市
[e]
.版本 2
.子程序 循环
.局部变量 姓氏个数, 整数型, , , 取文本框姓氏一共多少
.局部变量 名字个数, 整数型, , , 取文本框名字一共多少
.局部变量 名_个数, 整数型, , , 要生成个数
.局部变量 名_段数, 整数型, , , 要生成段数
.局部变量 名_计数, 整数型, , , 名字累计循环变量
.局部变量 姓_计数, 整数型, , , 姓氏累计循环变量
.局部变量 总计, 整数型, , , 循环总数用于跳出循环 跳出循环的条件等于 设定的个数和段数的乘积
姓氏个数 = 文本_取行数 (编辑框_姓氏.内容)
名字个数 = 文本_取行数 (编辑框_名字.内容)
名_个数 = 到整数 (编辑框3.内容)
名_段数 = 到整数 (编辑框2.内容)
.计次循环首 (姓氏个数, 姓_计数)
.计次循环首 (名字个数, 名_计数)
总计 = 总计 + 1
编辑框1.加入文本 (文本_取指定变量文本行 (编辑框_姓氏.内容, 姓_计数) + 文本_取指定变量文本行 (编辑框_名字.内容, 名_计数) + #换行符)
.如果真 (总计 % 名_个数 = 0)
编辑框1.加入文本 (“——————————————————————————————————————” + #换行符)
.如果真结束
.如果真 (总计 = 名_个数 × 名_段数)
返回 ()
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
[/e] |
评分
-
查看全部评分
|