|
发表于 2014-2-24 23:28:54
|
显示全部楼层
山东省泰安市
.版本 2
.程序集 窗口程序集1
.程序集变量 生肖数组, 文本型, , "12"
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 组合数目, 整数型
.局部变量 n, 整数型
编辑框_结果.内容 = “”
子程序1 ()
组合数目 = 到整数 (编辑框_组合数目.内容)
.循环判断首 ()
.变量循环首 (2, 取数组成员数 (生肖数组) - 组合数目 + 2, 1, i)
编辑框_结果.加入文本 (生肖数组 [1])
.计次循环首 (组合数目 - 1, n)
编辑框_结果.加入文本 (生肖数组 [i - 1 + n])
.计次循环尾 ()
编辑框_结果.加入文本 (#换行符)
.变量循环尾 ()
删除成员 (生肖数组, 1, )
.循环判断尾 (取数组成员数 (生肖数组) > 组合数目 - 1)
.子程序 子程序1
.局部变量 i, 整数型
重定义数组 (生肖数组, 假, 12)
.计次循环首 (12, i)
生肖数组 [i] = 多项选择 (i, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊”, “猴”, “鸡”, “狗”, “猪”)
.计次循环尾 ()
|
|