精易论坛

标题: 编辑框问题进来看看谢谢了 [打印本页]

作者: uo0114 时间: 2013-3-7 18:57
标题: 编辑框问题进来看看谢谢了

[size=0.83em]2 小时前上传
下载附件 [size=0.83em](93.81 KB)
源码

代码

运行效果

txt文档

——————————————————————————分隔线———————————————————

另一个

点击“选一个” 选一个上面编辑框内容是 1 再点一下内容是2 一直3 4 5 6 。。。。

随机选一个左边大编辑框内容到小编辑框内容的一个随机数字

谢谢了

同一个贴
http://125.confly.eu.org/thread-13637234-1-1.html

作者: 519505667 时间: 2013-3-7 18:57

求最佳
.版本 2
.支持库 spec

.程序集窗口程序集1
.程序集变量 a, 文本型
.程序集变量 g, 文本型, , "0"
.程序集变量 f, 整数型

.子程序 _按钮1_被单击
.局部变量 h, 文本型, , "0"
.局部变量 j, 整数型

编辑框1.内容＝ a
h ＝分割文本 (a, #换行符, )
.计次循环首 (取数组成员数 (h), j)
加入成员 (g, h [j])
.计次循环尾 ()
调试输出 (g)

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

a ＝到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))
输出调试文本 (a)
置随机数种子 ()

.子程序 _按钮2_被单击

f ＝ f ＋ 1
编辑框2.内容＝删尾空 (g [f])

.子程序 _按钮3_被单击

f ＝取随机数 (1, 取数组成员数 (g))
编辑框2.内容＝删尾空 (g [f])