然后将分割后的内容，取随机切每次都不重复

qijia0311 · 发表于 2015-3-12 12:52:05

然后将分割后的内容，取随机
编辑框内的内容是：
c9c3115bdfCGYJl3
beeb7674b52W3nvf
45c8433c9aHUY1nR
ee403a81ddPABYs5
27245e54bfEc55AY
162c4ed2b220hv89
a4246cd94dt19iJm
3aceb45233Elyd14
691f89f3ccFdSfo2
091c77f11bFmzhg6
237e4dcfcdS3syEL
0ddf813cdbPEoOP8
685652686aJz5WoC
a68d08a7629Zi6CK
168c859e3cGKCYd2
ea0faa6ff7b4vMHl
fdc83115a0T1nvb6
6218428193MNXxBC
47b3836515xGlIZJ
dde55bd2feEQYvnA
ee69b35ce7I4I2Zp
6dcaebf1f9eJa8Nv
10f0760323cI49xp
686170d6c6YycfFG
dc08673705dyMdSU
9861141c26l5LrrY
2ed3b3c415SL7NP8
544646128cuKDdzd
e573670e9aizzj8u
7ccf5797283PTDVT
bb69f138f42liXUt
e2255ac31cRU8D2r
f9410db518bpyUi9
f0a3e5efa7CKxdca
9977af87bciy759F
14b6babe442qyn1O
a4a6fa041fkPySPN
6f4250a3b1B2AzzB
1670d775fayIBMOZ
10448d5437UrWCCm
我把内容写上后，点击按钮就可以自动把一个个分割出来的，
但是分割出来的内容我先，每次点击一次按钮就显示分割的一个随机的内容
，且没按一次后内容都不能重复的，请问如何实现

人善帝王心 · 发表于 2015-3-12 12:52:06

子程序名返回值类型公开备注
_按钮1_被单击
变量名类型静态数组备注
分割文本型 0
i 整数型
随机数文本型
分割＝分割文本 (编辑框1.内容, #换行符, )
如果真 (取数组成员数 (分割) ＞ 0)
置随机数种子 ()
随机数＝分割 [取随机数 (1, 取数组成员数 (分割))]
编辑框1.内容＝子文本替换 (编辑框1.内容, 随机数, “”, , , 真)

程序开发vo · 发表于 2015-3-12 13:09:20

补充内容 (2015-3-12 13:10):
源码2楼

程序开发vo · 发表于 2015-3-12 13:09:51

1.zip (1.51 KB, 下载次数: 1)

hellohexiang · 发表于 2015-3-12 13:18:08

获取一个删一个就不重复了

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

变量名	类型	静态	数组	备注
分割	文本型		0
i	整数型
随机数	文本型

分割＝分割文本 (编辑框1.内容, #换行符, )

如果真 (取数组成员数 (分割) ＞ 0)

置随机数种子 ()

随机数＝分割 [取随机数 (1, 取数组成员数 (分割))]

编辑框2.加入文本 (随机数＋ #换行符 )

编辑框1.内容＝子文本替换 (编辑框1.内容, 随机数, “”, , , 真)

编辑框1.内容＝文本_删除空行 (编辑框1.内容)

狼啸天 · 发表于 2015-3-12 13:40:38

.版本 2

.程序集窗口程序集_启动窗口
.程序集变量数组, 文本型, , "0"

.子程序 _按钮1_被单击
.局部变量 i, 整数型

i ＝取随机数 (1, 取数组成员数 (数组))
.如果真 (i ＝ 0)
信息框 (“已经取完了”, #信息图标, “温馨提示：”, )
返回 ()
.如果真结束
编辑框2.内容＝数组 [i]
删除成员 (数组, i, 1)

.子程序 __启动窗口_创建完毕

置随机数种子 ()
数组＝分割文本 (编辑框1.内容, #换行符, )

		自动登录	找回密码
密码			注册

[已解决] 然后将分割后的内容，取随机切每次都不重复

最佳答案

评分