随机数不重复

7847214

    范围1 = 编辑框.设置文本("编辑框0","1")
    范围2 = 编辑框.设置文本("编辑框1","12")

    范围1 = 编辑框.获得文本("编辑框0")
    范围2 = 编辑框.获得文本("编辑框1")
   
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框9",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框8",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框7",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框6",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框5",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框10",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框11",随机数)
    随机数 = 辅助.随机数(范围1,范围2)
    编辑框.设置文本("编辑框12",随机数)


按这个基础上，8个数字不重复，谢谢。

九州烟雨

哦  

言术

随机数取完再设置，5.0的代码

1. 功能 哈哈()
   
2.     变量 得到的随机数数组=数组()
   
3.     得到的随机数数组=取不重复随机数(编辑框获取文本("编辑框0"),编辑框获取文本("编辑框1"),8)
   
4.     遍历(变量 i = 0; i < 8; i++)
   
5.         编辑框设置文本("编辑框"&(i+5),得到的随机数数组[i])
   
6.     结束
   
7. 结束
   
8. 
   
9. 功能 取不重复随机数(Min, Max, Num)
   
10.     变量 结果 = 数组()
    
11.     如果(Max > Min && Num <= (Max - Min))
    
12.         变量 标识 = 数组()
    
13.         遍历(变量 i = 0; i < Num; i++)
    
14.             循环(真)
    
15.                 变量 n = 随机数(Min, Max)
    
16.                 如果(标识[n] != 1)
    
17.                     结果[i] = n
    
18.                     标识[n] = 1
    
19.                     跳出
    
20.                 结束
    
21.             结束
    
22.         结束
    
23.         返回 结果
    
24.     否则
    
25.         返回 -1
    
26.     结束
    
27. 结束

复制代码