求自定义取随机值

va7

我想要自定义 输入 如：事实上 个饭店 发顺丰 三十六 史可法   然后 按钮单击则标签1.标题=随机取其中一个！ 然后排出那个被选中的 （如事实上被选中了）被排出 再标签2.标题从剩下的几个里开始随机取！

va7

顶顶顶！顶顶顶！顶顶顶！顶顶顶！

柳叶飞

死办法，我自己看着都蛋疼得写法

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 x坐标, 整数型
   
7. .局部变量 y坐标, 整数型
   
8. .局部变量 临时_坐标, 精易_坐标
   
9. .局部变量 局部_坐标, 精易_坐标, , "0"
   
10. .局部变量 局部_移动, 精易_坐标, , "0"
    
11. .局部变量 i, 整数型
    
12. .局部变量 随机数, 整数型
    
13. 
    
14. ' 将组件坐标列入数组
    
15. 临时_坐标.横 ＝ 标签1.左边
    
16. 临时_坐标.纵 ＝ 标签1.顶边
    
17. 加入成员 (局部_坐标, 临时_坐标)
    
18. 临时_坐标.横 ＝ 标签2.左边
    
19. 临时_坐标.纵 ＝ 标签2.顶边
    
20. 加入成员 (局部_坐标, 临时_坐标)
    
21. 临时_坐标.横 ＝ 标签3.左边
    
22. 临时_坐标.纵 ＝ 标签3.顶边
    
23. 加入成员 (局部_坐标, 临时_坐标)
    
24. 临时_坐标.横 ＝ 标签4.左边
    
25. 临时_坐标.纵 ＝ 标签4.顶边
    
26. 加入成员 (局部_坐标, 临时_坐标)
    
27. 临时_坐标.横 ＝ 标签5.左边
    
28. 临时_坐标.纵 ＝ 标签5.顶边
    
29. 加入成员 (局部_坐标, 临时_坐标)
    
30. 临时_坐标.横 ＝ 标签6.左边
    
31. 临时_坐标.纵 ＝ 标签6.顶边
    
32. 加入成员 (局部_坐标, 临时_坐标)
    
33. ' 开始移动
    
34. 
    
35. 复制数组 (局部_移动, 局部_坐标)
    
36. 置随机数种子 ()
    
37. .计次循环首 (取数组成员数 (局部_移动), i)
    
38.     随机数 ＝ 取随机数 (1, 取数组成员数 (局部_移动))
    
39.     .判断开始 (i ＝ 1)
    
40.         标签1.左边 ＝ 局部_移动 [随机数].横
    
41.         标签1.顶边 ＝ 局部_移动 [随机数].纵
    
42.     .判断 (i ＝ 2)
    
43.         标签2.左边 ＝ 局部_移动 [随机数].横
    
44.         标签2.顶边 ＝ 局部_移动 [随机数].纵
    
45.     .判断 (i ＝ 3)
    
46.         标签3.左边 ＝ 局部_移动 [随机数].横
    
47.         标签3.顶边 ＝ 局部_移动 [随机数].纵
    
48.     .判断 (i ＝ 4)
    
49.         标签4.左边 ＝ 局部_移动 [随机数].横
    
50.         标签4.顶边 ＝ 局部_移动 [随机数].纵
    
51.     .判断 (i ＝ 5)
    
52.         标签5.左边 ＝ 局部_移动 [随机数].横
    
53.         标签5.顶边 ＝ 局部_移动 [随机数].纵
    
54.     .判断 (i ＝ 6)
    
55.         标签6.左边 ＝ 局部_移动 [随机数].横
    
56.         标签6.顶边 ＝ 局部_移动 [随机数].纵
    
57.     .默认
    
58. 
    
59.     .判断结束
    
60. 
    
61.     删除成员 (局部_移动, 随机数, 1)
    
62. 
    
63. .计次循环尾 ()
    

复制代码

va7

柳叶飞 发表于 2011-11-9 21:40
死办法，我自己看着都蛋疼得写法

看不懂啊 有没有更简单的 适合新手的

爱家的小懒虫

ABCDEF 是再怎么点也不会出现么?

就是所有组合方法来一遍之后.就不能再换是这意思?

柳叶飞

va7 发表于 2011-11-9 21:44
看不懂啊 有没有更简单的 适合新手的

这个就是最基本的，你把源码复制到你刚才的源码里面试试看呢

va7

柳叶飞 发表于 2011-11-9 21:45
这个就是最基本的，你把源码复制到你刚才的源码里面试试看呢

可以是可以了 请你帮我加至53个标签 我不会加 谢谢！

千年

test.zip (1.34 KB, 下载次数: 36)

2011-11-9 21:48 上传

点击文件名下载附件

我这源码，要简单得多！！！

。。。。。

如果要53个标签什么的。。。
你自己看吧，相信你能看明白的！

爱家的小懒虫

11.rar (1.2 KB, 下载次数: 23)

2011-11-9 21:54 上传

点击文件名下载附件

柳叶飞

va7 发表于 2011-11-9 21:47
可以是可以了 请你帮我加至53个标签 我不会加 谢谢！

加53个标签？你的思路本身就有问题，这个编程，不是手工劳动，如果要加53个标签，你还不如订个黑板，然后挂53个牌子上去呢

你的思路应该这样，先将53个文本内容放入数组，然后在你现在6个标签上随机显示,代码如下：

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. .局部变量 随机数, 整数型
   
7. .局部变量 局部_文本, 文本型, , "0"
   
8. .局部变量 临时_文本, 文本型, , "0"
   
9. .局部变量 i, 整数型
   
10. 
    
11. 局部_文本 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10” }
    
12. 临时_文本 ＝ 局部_文本
    
13. 置随机数种子 ()
    
14. .计次循环首 (取数组成员数 (临时_文本), i)
    
15. 
    
16.     随机数 ＝ 取随机数 (1, 取数组成员数 (临时_文本))
    
17.     .判断开始 (i ＝ 1)
    
18.         标签1.标题 ＝ 临时_文本 [随机数]
    
19.     .判断 (i ＝ 2)
    
20.         标签2.标题 ＝ 临时_文本 [随机数]
    
21.     .判断 (i ＝ 3)
    
22.         标签3.标题 ＝ 临时_文本 [随机数]
    
23.     .判断 (i ＝ 4)
    
24.         标签4.标题 ＝ 临时_文本 [随机数]
    
25.     .判断 (i ＝ 5)
    
26.         标签5.标题 ＝ 临时_文本 [随机数]
    
27.     .判断 (i ＝ 6)
    
28.         标签6.标题 ＝ 临时_文本 [随机数]
    
29.     .默认
    
30. 
    
31.     .判断结束
    
32. 
    
33.     删除成员 (临时_文本, 随机数, )
    
34.     ' 因为只有6个标签，所以要写下面的代码
    
35.     .如果真 (i ＝ 6)
    
36.         跳出循环 ()
    
37.     .如果真结束
    
38. 
    
39. .计次循环尾 ()
    
40. 
    

复制代码