易语言制作数字雨

用易语言制作数字雨屏保，希望能有个源码

把姓名或数字 逐个放到一个一维数组中
然后置随机种子取随机数，然后根据这个随机数 将数组中的值 取出 放到你要显示的组件中（如编辑框）。

.版本 2

.程序集 窗口程序集1
.程序集变量 姓名数组, 文本型, , "0"
.程序集变量 点击数, 整数型

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

' 循环加入不同姓名
.计次循环首 (10, n)
加入成员 (姓名数组, “张三” ＋ 到文本 (n))
.计次循环尾 ()
' 置随机种子并 取出数组范围内的随机数
置随机数种子 (取秒 (取现行时间 ()) ＋ 点击数)
随机数 ＝ 取随机数 (1, 取数组成员数 (姓名数组))
' 将内容打印到编辑框中
编辑框1.内容 ＝ 姓名数组 [随机数]
' 增加随机种子的随机性
点击数 ＝ 点击数 ＋ 1

补充
问：可以啊，但是为什么随机抽取的名字后面都加数字？

答：我是给你举个例子所以加入了后面带数字的名字

其实实际中 这些名字一般是由操作者加入的 ，不是程序设计时添加的。
全集高清在线观看下载地址： http://www.tvbjq.com/

http://www.5a5x.com/06/201301/01098065.html