.版本 2
.程序集 窗口程序集1
.子程序 _排列按钮_被单击
.局部变量 计次
.局部变量 重复文本
重复文本 = 4
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (7, “ ”) + 取手缓重复文本 (1, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (6, “ ”) + 取埋激重复文本 (3, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (5, “ ”) + 取毕液模重复文本 (5, “*”) + #换行符
顶部编辑框.内容 = 顶部编辑框.内容 + 取重复文本 (4, “ ”) + 取重复文本 (7, “*”) + #换行符
.计次循环首 (重复文本, 计次)
中部编辑框.内容 = 中部编辑框.内容 + 取重复文本 (重复文本 - 计次, “ ”) + 取重复文本 (10 + 计次 × 2 - 2, “*”) + #换行符
.计次循环尾 ()
.计次循环首 (重复文本, 计次)
底部编辑框.内容 = 底部编辑框.内容 + 取重复文本 (重复文本 - 计次, “ ”) + 取重复文本 (计次 × 2 - 1, “*”) + #换行符
.计次循环尾 ()
.计次循环首 (3, 计次)
底部编辑框.内容 = 底部编辑框.内容 + 取重复文本 (计次, “ ”) + 取重复文本 ((重复文本 - 计次) × 2 - 1, “*”) + #换行符
.计次循环尾 ()
.版本 2
.程序集 窗口程序集1
.程序集变量 lable, 标签, , "3", 你可以通过其他方法获得标签的数目之类的
.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 i, 整数简颤型
n = 取数组成员数 (lable) ' 获取多少个标签
.计次循拦判败环首 (n, i)
lable [i].标题 = 到文本 (i) + “次”
.计次循环尾 ()
.子程序 __启动窗口_创建完冲辩毕
' 把标签装到数组中
' 通过数组的所以要来分配
lable [1] = 标签1
lable [2] = 标签2
lable [3] = 标签3
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)