2012.10.3号，问题2.那位大神帮我看一下，这个代码怎么重复？

252253494

目的：做一个双色球随机选号器。
出现的问题：红1~红6个号码可能重复。（双色球，红球共33个号码，可以选6个为一组，但6个号码不能重复）

      
以下是我的代码：
功能 逻辑型 双色球_点击()
      整型 红1,红2,红3,红4,红5,红6,蓝1
      字符型 红1字符串,红2字符串,红3字符串,红4字符串,红5字符串,红6字符串,蓝1字符串
      
            红1=辅助.随机数(1,33)      
     如果 (红1!=红2)         
      红1字符串=转换.整型转字符型(红1)      
      编辑框.设置文本("编辑框0",红1字符串)
    否则（这后面应该怎么写了）
         
      
      红2=辅助.随机数(1,33)      
      红2字符串=转换.整型转字符型(红2)      
      编辑框.设置文本("编辑框1",红2字符串)
      
      
      
      红3=辅助.随机数(1,33)      
      红3字符串=转换.整型转字符型(红3)      
      编辑框.设置文本("编辑框2",红3字符串)
      
      
      
      
      红4=辅助.随机数(1,33)      
      红4字符串=转换.整型转字符型(红4)      
      编辑框.设置文本("编辑框3",红4字符串)
      
      红5=辅助.随机数(1,33)      
      红5字符串=转换.整型转字符型(红5)      
      编辑框.设置文本("编辑框4",红5字符串)
      
      红6=辅助.随机数(1,33)      
      红6字符串=转换.整型转字符型(红6)      
      编辑框.设置文本("编辑框5",红6字符串)
      
      蓝1=辅助.随机数(1,16)      
      蓝1字符串=转换.整型转字符型(蓝1)      
      编辑框.设置文本("编辑框6",蓝1字符串)

返回 真
//函数返回语句
功能结束

shine宝宝

整型 红1,红2,红3,红4,红5,红6,蓝1,线程句柄

字符型 红1字符串,红2字符串,红3字符串,红4字符串,红5字符串,红6字符串,蓝1字符串




功能 逻辑型 双色球_点击()


      线程句柄=线程.开启("空间名.选号","")

返回 真

功能结束

功能 逻辑型 选号()

循环(真)                  
            红1=辅助.随机数(1,33)      
如果 (红1==红2)         
     继续
否则
红1字符串=转换.整型转字符型(红1)      
编辑框.设置文本("编辑框0",红1字符串)
         跳出
     如果结束
循环结束

循环(真)
         红2=辅助.随机数(1,33)      
如果 (红2==红1)      
            继续
       否则
            ......
            跳出
       如果结束
循环结束


循环(真)
红3=辅助.随机数(1,33)      
如果 ((红3==红2)||(红3==红1))
       .........

返回 真
//函数返回语句
功能结束

不知道对不对- - 凭感觉写的

爱玩的一休

回复 2楼shine宝宝的帖子

按照这个思路完成的代码死循环的几率很大

陌上青衣。

夏末

数组

shine宝宝

回复 2楼shine宝宝的帖子

按照这个思路完成的代码死循环的几率很大
爱玩的一休 发表于 2012-10-3 14:33:02

为啥？

252253494

功能 逻辑型 双色球_点击()
      整型 红1,红2,红3,红4,红5,红6,蓝1
      字符型 红1字符串,红2字符串,红3字符串,红4字符串,红5字符串,红6字符串,蓝1字符串
      线程.开启("彩票选号器.选号","我是参数")||我不知道怎么填我的参数。
返回 真
功能结束
功能 逻辑型 选号()
      整型 红1,红2,红3,红4,红5,红6,蓝1
      字符型 红1字符串,红2字符串,红3字符串,红4字符串,红5字符串,红6字符串,蓝1字符串
循环(真)
      红1=辅助.随机数(1,33)      
   
    如果 (红1==红2)||(红1==红3)||(红1==红4)||(红1==红5)||(红1==红6)     
      
       继续
              
    否则
      红1字符串=转换.整型转字符型(红1)      
      编辑框.设置文本("编辑框0",红1字符串)
    如果结束
循环结束
      
循环(真)      
      红2=辅助.随机数(1,33)
    如果 (红2==红1)||(红2==红3)||(红2==红4)||(红2==红5)||(红2==红6)     
       继续              
    否则     
      红2字符串=转换.整型转字符型(红2)      
      编辑框.设置文本("编辑框1",红2字符串)
      如果结束
循环结束

循环(真)           
      红3=辅助.随机数(1,33)
    如果 (红3==红1)||(红3==红2)||(红3==红4)||(红3==红5)||(红3==红6)     
       继续              
    否则     
      红3字符串=转换.整型转字符型(红3)      
      编辑框.设置文本("编辑框2",红3字符串)
      如果结束
循环结束

红4………………
红5………………


循环(真)        
      红6=辅助.随机数(1,33)
    如果 (红6==红1)||(红6==红2)||(红6==红3)||(红6==红4)||(红6==红5)     
       继续              
    否则      
      红6字符串=转换.整型转字符型(红6)      
      编辑框.设置文本("编辑框5",红6字符串)
    如果结束
循环结束     
      
      
      蓝1=辅助.随机数(1,16)      
      蓝1字符串=转换.整型转字符型(蓝1)      
      编辑框.设置文本("编辑框6",蓝1字符串)

返回 真
//函数返回语句
功能结束

大神们，我除了一个打红色字体的"我是参数"，我不知道怎么填而外，我还发现个问题。
那就是数字一直在第一个号码（也就是红1）一直不停的循环。
求解。

夏末

1. 
   
2. 功能 逻辑型 开始()
   
3.     整型[] 随机数
   
4.     整型 a,b,数据
   
5.     随机数=整型[6]
   
6.     循环(b<6)
   
7.         数据=辅助.随机数(1,33)
   
8.         a=0
   
9.         循环(真)            
   
10.             如果(数据==随机数[a])
    
11.                 数据=辅助.随机数(1,33)
    
12.                 a=0
    
13.             否则
    
14.                 a=a+1
    
15.             如果结束
    
16.             如果(a==6)
    
17.                 随机数[b]=数据
    
18.                 b=b+1
    
19.                 跳出
    
20.             如果结束
    
21.         循环结束
    
22.     循环结束
    
23.    
    
24.    
    
25.     b=0
    
26.     循环(b<6)
    
27.         辅助.消息框(转换.整型转字符型(随机数[b]))
    
28.         b=b+1
    
29.     循环结束
    
30.     返回 真
    
31. 功能结束
    

复制代码

陌上青衣。

好吧,解决了.

shine宝宝

好吧,解决了.
陌上青衣。 发表于 2012-10-3 15:11:25

你这签名咋回事