.版本 2
.程序集 窗口程序集1
.程序集变量 程_编辑框数组, 编辑框, , "5,5"
.子程序 __启动窗口_创建完毕
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型
置随机数种子 ()
编辑框1.宽度 = _启动窗口.取用户区宽度 () ÷ 4 ÷ 2
编辑框1.高度 = _启动窗口.取用户区高度 () ÷ 5 ÷ 2
编辑框1.左边 = 编辑框1.宽度 ÷ 2
编辑框1.顶边 = 编辑框1.高度 ÷ 2
.计次循环首 (5, a)
.计次循环首 (5, b)
c = c + 1
复制窗口组件 (编辑框1, 程_编辑框数组 [a] [b])
程_编辑框数组 [a] [b].宽度 = 编辑框1.宽度
程_编辑框数组 [a] [b].高度 = 编辑框1.高度
程_编辑框数组 [a] [b].左边 = 编辑框1.左边 + (编辑框1.宽度 + 编辑框1.左边) × (b - 1)
程_编辑框数组 [a] [b].顶边 = 编辑框1.顶边 + (编辑框1.高度 + 编辑框1.顶边) × (a - 1)
程_编辑框数组 [a] [b].标记 = 到文本 (a) + 到文本 (b)
程_编辑框数组 [a] [b].可视 = 真
.计次循环尾 ()
.计次循环尾 ()
重写内容 ()
.子程序 重写内容
.局部变量 局_数组, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 局_索引, 整数型
.计次循环首 (25, a)
加入成员 (局_数组, 到文本 (a))
.计次循环尾 ()
.计次循环首 (25, a)
局_索引 = 取随机数 (1, 取数组成员数 (局_数组))
程_编辑框数组 [a].内容 = 局_数组 [局_索引]
写配置项 (取运行目录 () + “\记录内容.ini”, 局_数组 [局_索引], “1”, 程_编辑框数组 [a].标记)
删除成员 (局_数组, 局_索引, 1)
.计次循环尾 ()
.子程序 _按钮1_被单击
重写内容 ()
.子程序 _按钮_寻找_被单击
.局部变量 局_文本, 文本型
局_文本 = 读配置项 (取运行目录 () + “\记录内容.ini”, 编辑框_寻找.内容, “1”, )
.如果 (局_文本 = “”)
信息框 (“查找的内容不存在!!!”, #警告图标, “输入错误:”)
.否则
信息框 (“查找的内容在第 ” + 取文本左边 (局_文本, 1) + “ 行,第 ” + 取文本右边 (局_文本, 1) + “ 列!”, #信息图标, “输入错误:”)
.如果结束
追问你能不能发个源码给我哦.
我看得乱,,
Q.邮,箱.
24 245 777 39
发到你QQ了,离线文件,注意查收