QQ网名大全

易语言 怎么 随机抽取自定义的名字? 麻烦发一个源码。谢谢!

程序集 窗口程序集1
程序集变量 名字组,文本型,"0
子程序_启动窗口_创建完毕
名字组={“赵1”,“赵2”,“赵3”,“赵4”,“赵5”,“赵6”,“赵7”,“赵8”}
置随机数种子()
编辑框1.标记=“1”
编辑框2.标记=“2”
编辑框3.标记=“3”
编辑框4.标记=“4”
编辑框5.标记=“5”
编辑框6.标记=“6”
编辑框7.标记=“7”
编辑框8.标记=“8”
子程序_按钮1_被单击
局部变量 文本,文本型
局部变量 临时数组,文本型,"0
局部变量 y,整数型
局部变量 x,整数型
局部变量 编辑框变量,编辑框
临时数组=名字组
判断循环首(取数组成员数(临时数组)>0)
x=取随机数(1,取数组成员数(临时数组))
文本=文本+“[”+临时数组[x]+“]”
编辑框变量=取标记组件(取数组成员数(临时数组))
编辑框变量.内容=临时数组[x]
清除数组(临时数组)
计次循环首(取数组成员数(名字组),y)
如果真(寻找文本(文本,“[”+名字组[y]+“]”,0,假))
加入成员(临时数组,名字组[y])
如果真结束
调试输出(名字组[y])
计次循环尾()
判断循环尾()
佚名
2024-06-04 19:37:27
最佳回答
类似问题(10)