将一组数组内容打乱重排并输出,如上图示例。
记录一下实现思路:
将原文本分割为文本数组,然后随机取数组成员,随机取出的数组成员在原文本数组中删除,并赋值到新的文本数组中。
这样原数组中每随机取出一个成员,其数组成员数就会减1,直到全部取出为止。此时新数组就是随机乱序的原数组内容。
再将新数组内容输出就可以了。
代码实现:
使用 判断循环首() 命令来实现这个思路。
.版本 2
.子程序 _按钮1_被单击
.局部变量 原文本数组, 文本型, , "0"
.局部变量 新文本数组, 文本型, , "0"
.局部变量 随机数, 整数型
.局部变量 计次, 整数型
.局部变量 临时文本, 文本型
置随机数种子 ()
原文本数组 = 分割文本 (编辑框1.内容, “,”, )
清除数组 (新文本数组)
.判断循环首 (取数组成员数 (原文本数组) > 0) ' 直到原数组中的成员全部选出,结束循环
随机数 = 取随机数 (1, 取数组成员数 (原文本数组))
加入成员 (新文本数组, 原文本数组 [随机数]) ' 将成员添加到新数组中
删除成员 (原文本数组, 随机数, 1) ' 原数组中删除当前成员
.判断循环尾 ()
.计次循环首 (取数组成员数 (新文本数组), 计次)
临时文本 = 临时文本 + 新文本数组 [计次] + “,”
.计次循环尾 ()
编辑框2.内容 = 临时文本
后续有了新思路再做补充。