Question

易语言制作取一段话的随机数 就是点击按钮之后会在编辑框里随机的不停出现一句话

易语言制作取一段话的随机数
就是点击按钮之后会在编辑框里随机的不停出现一句话

Answer 1

追问

图看不清楚啊，你能写一下吗？

Answer 2

不免费是否接受帮助

Answer 3

.版本 2

.子程序 _按钮5_被单击
.局部变量 s, 文本型, , "0"
.局部变量 bev, 文本型
.局部变量 c, 文本型, , "0"
.局部变量 auxv, 文本型, , "0"
.局部变量 adv, 文本型, , "0"
.局部变量 n, 文本型, , "0"
.局部变量 vt, 文本型, , "0"
.局部变量 abstractn, 文本型, , "0"
.局部变量 随机s, 整数型
.局部变量 随机c, 整数型
.局部变量 随机auxv, 整数型
.局部变量 随机adv, 整数型
.局部变量 随机n, 整数型
.局部变量 随机vt, 整数型
.局部变量 随机abstractn, 整数型
.局部变量 随机话n, 整数型
.局部变量 随机话1, 文本型
.局部变量 随机话2, 文本型
.局部变量 随机话3, 文本型
.局部变量 随机话4, 文本型

s ＝ { “我”, “你”, “他”, “她” }
bev ＝ “是”
c ＝ { “富有的”, “漂亮的”, “美丽的”, “伤心的”, “快乐的”, “有趣的”, “好笑的” }
auxv ＝ { “看起来”, “玩起来”, “杀起来” }
adv ＝ { “很”, “极度”, “非常” }
n ＝ { “汽车”, “飞机”, “大炮” }
vt ＝ { “拥有”, “驾驶”, “摧毁” }
abstractn ＝ { “刺激”, “爽快”, “开心” }

置随机数种子 ()
随机s ＝ 取随机数 (1, 取数组成员数 (s))
随机c ＝ 取随机数 (1, 取数组成员数 (s))
随机auxv ＝ 取随机数 (1, 取数组成员数 (auxv))
随机adv ＝ 取随机数 (1, 取数组成员数 (adv))
随机n ＝ 取随机数 (1, 取数组成员数 (n))
随机vt ＝ 取随机数 (1, 取数组成员数 (vt))
随机abstractn ＝ 取随机数 (1, 取数组成员数 (abstractn))
随机话n ＝ 取随机数 (1, 4)

随机话1 ＝ s [随机s] ＋ bev ＋ c [随机c]
随机话2 ＝ s [随机s] ＋ vt [随机vt] ＋ n [随机n]
随机话3 ＝ s [随机s] ＋ bev ＋ adv [随机adv] ＋ abstractn [随机abstractn]
随机话4 ＝ s [随机s] ＋ auxv [随机auxv] ＋ adv [随机adv] ＋ abstractn [随机abstractn]

.如果真 (随机话n ＝ 1)
    编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符 ＋ 随机话1
.如果真结束
.如果真 (随机话n ＝ 2)
    编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符 ＋ 随机话2
.如果真结束
.如果真 (随机话n ＝ 3)
    编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符 ＋ 随机话3
.如果真结束
.如果真 (随机话n ＝ 4)
    编辑框3.内容 ＝ 编辑框3.内容 ＋ #换行符 ＋ 随机话4
.如果真结束