|
发表于 2011-10-26 16:07:13
|
显示全部楼层
江苏省苏州市
本帖最后由 柳叶飞 于 2011-10-26 16:12 编辑
不想下载的看源码
- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- .局部变量 i, 整数型
- .局部变量 数字组合, 文本型, , "0"
- .局部变量 随机数, 整数型
- ' 将所有数字放入数组待用
- .计次循环首 (到整数 (编辑框1.内容), i)
- 加入成员 (数字组合, 编辑框_1.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框2.内容), i)
- 加入成员 (数字组合, 编辑框_2.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框3.内容), i)
- 加入成员 (数字组合, 编辑框_3.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框4.内容), i)
- 加入成员 (数字组合, 编辑框_4.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框5.内容), i)
- 加入成员 (数字组合, 编辑框_5.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框6.内容), i)
- 加入成员 (数字组合, 编辑框_6.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框7.内容), i)
- 加入成员 (数字组合, 编辑框_7.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框8.内容), i)
- 加入成员 (数字组合, 编辑框_8.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框9.内容), i)
- 加入成员 (数字组合, 编辑框_9.内容)
- .计次循环尾 ()
- .计次循环首 (到整数 (编辑框10.内容), i)
- 加入成员 (数字组合, 编辑框_10.内容)
- .计次循环尾 ()
- ' 开始输出
- 编辑框_结果.内容 = “”
- .计次循环首 (取数组成员数 (数字组合), i)
- 置随机数种子 ()
- 随机数 = 取随机数 (1, 取数组成员数 (数字组合))
- 编辑框_结果.加入文本 (数字组合 [随机数])
- 删除成员 (数字组合, 随机数, )
- .如果真 (i % 2 = 0)
- 编辑框_结果.加入文本 (#空格)
- .如果真结束
- .计次循环尾 ()
复制代码 |
|