随机打乱数组

mp624183768

---------------0.0 这个方法感觉比较好
数组模块_随机排列(数组名称)

  

子程序名	返回值类型	公开	备 注
数组模块_随机排列			将一组随机打乱排列
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型

变量名	类 型	静态	数组	备 注
n1	整数型
局变_随机数	整数型

置随机数种子 (取秒 (取现行时间 ()))
计次循环首 (取数组成员数 (参数_数组), n1)
局变_随机数 ＝ 取随机数 (n1, 取数组成员数 (参数_数组))
数组模块_互换变量 (参数_数组 [n1], 参数_数组 [局变_随机数])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
数组模块_互换变量			用一个临时变量把 两个变量互相更换
参数名	类 型	参考	可空	数组	备 注
参数1	整数型
参数2	整数型

变量名	类 型	静态	数组	备 注
临时	整数型

临时 ＝ 参数1
参数1 ＝ 参数2
参数2 ＝ 临时

.版本 2<br /> <br /> .子程序 数组模块_随机排列, , 公开, 将一组随机打乱排列<br /> .参数 参数_数组, 整数型, 参考 数组<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_随机数, 整数型<br /> <br /> 置随机数种子 (取秒 (取现行时间 ()))<br /> <br /> <br /> .计次循环首 (取数组成员数 (参数_数组), n1)<br />     局变_随机数 ＝ 取随机数 (n1, 取数组成员数 (参数_数组))<br />     数组模块_互换变量 (参数_数组 [n1], 参数_数组 [局变_随机数])<br /> .计次循环尾 ()<br /> <br /> .子程序 数组模块_互换变量, , 公开, 用一个临时变量把 两个变量互相更换<br /> .参数 参数1, 整数型, 参考<br /> .参数 参数2, 整数型, 参考<br /> .局部变量 临时, 整数型<br /> <br /> 临时 ＝ 参数1<br /> 参数1 ＝ 参数2<br /> 参数2 ＝ 临时

---------------笨方法

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
顺序数组	文本型		0	参考数组
随机数组	文本型		0	打乱后数组
i	整数型
随机数	整数型

重定义数组 (顺序数组, 假, 到整数 (编辑框2.内容))  ' 依据 编辑框2 的数字来调整两个 数组 大小
重定义数组 (随机数组, 假, 到整数 (编辑框2.内容))
计次循环首 (到整数 (编辑框2.内容), i)  ' 生成顺序数组的内容
顺序数组 [i] ＝ 到文本 (i)
' 本源码来自易语言资源网(www.5A5X.com)
计次循环尾 ()
编辑框1.内容 ＝ “ 序号 随机数组 随机数 顺序数组” ＋ #换行符
计次循环首 (取数组成员数 (顺序数组), i)  ' 打乱数组的程序段
置随机数种子 ()
' 本源码来自易语言资源网(www.5A5X.com)
随机数 ＝ 取随机数 (1, 取数组成员数 (顺序数组) － i ＋ 1)  ' 取一个1～x之间的随机数，x值从 顺序数组 的成员数以1为步进单位往下递减
随机数组 [i] ＝ 顺序数组 [随机数]  ' 将随机取得的 顺序数组 的值顺序写入 随机数组 ，完成打乱的步骤
顺序数组 [随机数] ＝ 顺序数组 [取数组成员数 (顺序数组) － i ＋ 1]  ' 将 顺序数组 的最后一个成员移入刚被读取内容的位置，免得取到重复数，一个循环之后 顺序数组 的最后一个成员将不可能被提取到，第二个循环后，倒数两个的成员不被提取到内容，以此类推，直至 顺序数组 的每个成员都被随机读取了一遍后结束程序
编辑框1.加入文本 (“  ” ＋ 到文本 (i) ＋ “      ” ＋ 随机数组 [i] ＋ “       ” ＋ 到文本 (随机数) ＋ “       ” ＋ 顺序数组 [i] ＋ #换行符 )  ' 仅供显示研究数组变化
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 顺序数组, 文本型, , "0", 参考数组<br /> .局部变量 随机数组, 文本型, , "0", 打乱后数组<br /> .局部变量 i, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 重定义数组 (顺序数组, 假, 到整数 (编辑框2.内容))  ' 依据 编辑框2 的数字来调整两个 数组 大小<br /> 重定义数组 (随机数组, 假, 到整数 (编辑框2.内容))<br /> .计次循环首 (到整数 (编辑框2.内容), i)  ' 生成顺序数组的内容<br />     顺序数组 <i> ＝ 到文本 (i)<br />     ' 本源码来自易语言资源网(www.5A5X.com)<br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ “ 序号 随机数组 随机数 顺序数组” ＋ #换行符<br /> .计次循环首 (取数组成员数 (顺序数组), i)  ' 打乱数组的程序段<br />     置随机数种子 ()<br />     ' 本源码来自易语言资源网(www.5A5X.com)<br />     随机数 ＝ 取随机数 (1, 取数组成员数 (顺序数组) － i ＋ 1)  ' 取一个1～x之间的随机数，x值从 顺序数组 的成员数以1为步进单位往下递减<br />     随机数组 <i> ＝ 顺序数组 [随机数]  ' 将随机取得的 顺序数组 的值顺序写入 随机数组 ，完成打乱的步骤<br />     顺序数组 [随机数] ＝ 顺序数组 [取数组成员数 (顺序数组) － i ＋ 1]  ' 将 顺序数组 的最后一个成员移入刚被读取内容的位置，免得取到重复数，一个循环之后 顺序数组 的最后一个成员将不可能被提取到，第二个循环后，倒数两个的成员不被提取到内容，以此类推，直至 顺序数组 的每个成员都被随机读取了一遍后结束程序<br />     编辑框1.加入文本 (“  ” ＋ 到文本 (i) ＋ “      ” ＋ 随机数组 <i> ＋ “       ” ＋ 到文本 (随机数) ＋ “       ” ＋ 顺序数组 <i> ＋ #换行符)  ' 仅供显示研究数组变化<br /> .计次循环尾 ()

sosozhou

学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习

晓聪

凑凑热闹赚点精币，凑凑热闹赚点精币！

小逗包

学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习

银河世纪

你这哪里打乱了？  数据都变了，那这个数组还有什么用