|
5精币
代码
.版本 2
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 取随机数, 整数型
.局部变量 q, 整数型
.局部变量 w, 文本型
.局部变量 z, 整数型
.局部变量 x, 文本型
.局部变量 zx, 整数型
置随机数种子 ()
编辑框1.内容 = “”
.计次循环首 (8, )
q = 取随机数 (1, 10)
.如果 (q < 10)
w = “” + 到文本 (q)
.否则
w = 到文本 (q)
.如果结束
.判断循环首 (寻找文本 (编辑框1.内容, 到文本 (w), , 假) ≠ -1)
q = 取随机数 (1, 10)
.如果 (q < 10)
w = “” + 到文本 (q)
.否则
w = 到文本 (q)
.如果结束
.判断循环尾 ()
编辑框1.内容 = 编辑框1.内容 + “ ” + 到文本 (w)
删首尾空 (编辑框1.内容)
.计次循环尾 ()
编辑框2.内容 = “”
.计次循环首 (8, )
z = 取随机数 (1, 10)
.如果 (z < 10)
x = “” + 到文本 (z)
.否则
x = 到文本 (z)
.如果结束
.判断循环首 (寻找文本 (编辑框2.内容, 到文本 (x), , 假) ≠ -1)
z = 取随机数 (1, 10)
.如果 (z < 10)
x = “” + 到文本 (z)
.否则
x = 到文本 (z)
.如果结束
.判断循环尾 ()
编辑框2.内容 = 编辑框2.内容 + “ ” + 到文本 (w)
删首尾空 (编辑框2.内容)
.计次循环尾 ()
.计次循环首 (取文本长度 (编辑框1.内容), b)
.计次循环首 (取文本长度 (编辑框2.内容), a)
.如果真 (取文本中间 (编辑框2.内容, a, 1) = 取文本中间 (编辑框1.内容, b, 1))
编辑框3.加入文本 (取文本中间 (编辑框2.内容, a, 1))
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
|
|