小白问题, 能优化吗

cjxdn

效果:
03 05 10 09 (1次)
03 06 07 01 (2次)
....
10 05 02 09 (300次)
4个不相同的数, 0~10的随机数, 遍历300次
///////////////////////////////////////////////////
   
    列表框.清空("列表框0")
    辅助.等待(1000)
    遍历(i=0;i<300;i++)
        
        临时保存=数组[4]
        遍历(p=0;p<4;p++)
重新循环:
            
            循环(真)
                自定义数字=辅助.随机数(0,10)
                如果(p==0)
                    临时保存[0]=自定义数字
                    跳出
                否则
                    遍历(j=0;j<4;j++)
                        如果(自定义数字!=临时保存[j])
                            如果(j==3)
                                临时保存[p]=自定义数字
                            如果结束
                        否则
                            跳转 重新循环
                        如果结束
                        
                    遍历结束
                如果结束
               
               
                如果(p==3)
                    第一个=字符串.长度(临时保存[0])
                    如果(第一个==1)
                        临时保存[0]="0"&临时保存[0]
                    如果结束
                    第二个=字符串.长度(临时保存[1])
                    如果(第二个==1)
                        临时保存[1]="0"&临时保存[1]
                    如果结束
                    第三个=字符串.长度(临时保存[2])
                    如果(第三个==1)
                        临时保存[2]="0"&临时保存[2]
                    如果结束
                    第四个=字符串.长度(临时保存[3])
                    如果(第四个==1)
                        临时保存[3]="0"&临时保存[3]
                    如果结束
                    
                    结果=临时保存[0]&" "&临时保存[1]&" "&临时保存[2]&" "&临时保存[3]
                    列表框.增加文本("列表框0",结果)
                    
                    数组空间.清空(临时保存)
                如果结束
                跳出
            循环结束
        遍历结束
    遍历结束
   

sam7894604

我也来凑一脚...

1. function 四个随机数()
   
2.     var 局_随机 = "",局_返回 = ""
   
3.     while(strlen(局_返回) < 11)
   
4.         局_随机 = strright("0" & rnd(0,10),2)
   
5.         if(strfind(局_返回,局_随机) < 0)
   
6.             if(strlen(局_返回))
   
7.                 局_返回 = 局_返回 & " "
   
8.             end
   
9.             局_返回 = 局_返回 & 局_随机
   
10.         end
    
11.     end
    
12.     return 局_返回
    
13. end

复制代码

爱上老公

变量 a,b,c,d,数字1,数字2,数字3,数字4
    遍历(变量 i = 0; i < 300; i++)
        数字1=随机数(0,10)
        如果(数字1<10)
            a="0"&数字1
        结束
        遍历(变量 j = 0; j < 11; j++)
            变量 临时数1=随机数(0,10)
            如果(临时数1!=数字1)
                数字2=临时数1
                如果(数字2<10)
                    b="0"&数字2
                结束
                跳出
            结束
        结束
        遍历(变量 m = 0; m < 11; m++)
            变量 临时数2=随机数(0,10)
            如果(临时数2!=数字1&&临时数2!=数字2)
                数字3=临时数2
                如果(数字3<10)
                    c="0"&数字3
                结束
                跳出
            结束
        结束
        遍历(变量 n = 0; n < 11; n++)
            变量 临时数3=随机数(0,10)
            如果(临时数3!=数字1&&临时数3!=数字2&&临时数3!=数字3)
                数字4=临时数3
                如果(数字4<10)
                    d="0"&数字4
                结束
                跳出
            结束
        结束
        调试输出(a&","&b&","&c&","&d)
    结束

言术

描述一下你想要的功能，重新写，如果要优化的话也得知道这是做什么用的吧

cjxdn

言术 发表于 2015-12-18 19:54
描述一下你想要的功能，重新写，如果要优化的话也得知道这是做什么用的吧 ...

有说明啊
就是要随机数啊

效果:
03 05 10 09 (1次)
03 06 07 01 (2次)
....
10 05 02 09 (300次)
4个不相同的数, 0~10的随机数, 遍历300次

爱上老公

我上面写的完全可以

言术

看下面

言术

1. 功能 从这里开始()
   
2.     遍历(变量 i = 0; i < 300; i++)
   
3.         调试输出(四个随机数())
   
4.     结束
   
5. 结束
   
6. 
   
7. 功能 四个随机数()
   
8.     变量 结果 = 数组(),标识 = 数组()
   
9.     变量 m,n
   
10.     遍历(变量 i = 0; i < 4; i++)
    
11.         循环(真)
    
12.             n = 随机数(0,10)
    
13.             如果(标识[n] != 1)
    
14.                 如果(n != 10)
    
15.                     m="0"&n
    
16.                 否则
    
17.                     m=n
    
18.                 结束
    
19.                 结果[i] = m
    
20.                 标识[n] = 1
    
21.                 跳出
    
22.             结束
    
23.         结束
    
24.     结束
    
25.     返回 结果[0]&" "&结果[1]&" "&结果[2]&" "&结果[3]
    
26. 结束

复制代码

cjxdn

sam7894604 发表于 2015-12-18 21:52
我也来凑一脚...

感谢大家的指教, 大神你的太精辟了