来个大牛精简我的代码、

fourme2009

我这个无限循环的代码是正确的。也是我想要的结果。

求大牛帮我优化精简一下这个代码。

加入取出.e (6.31 KB, 下载次数: 13)

2026-6-9 10:53 上传

点击文件名下载附件


补充内容 (2026-6-9 10:55):
按快发布了。精币没设置好，完成打賞不低于3枚交易币。

E小菜鸟

  

子程序名	返回值类型	公开	备 注
简化

变量名	类 型	静态	数组	备 注
姓名	文本型		4
次数	整数型		4
i	整数型
n	整数型
随机数	整数型

姓名 ＝ { “小李”, “小王”, “小张”, “小明” }
次数 ＝ { 0, 0, 0, 0 }
置随机数种子 ()
计次循环首 (100, n)
随机数 ＝ 取随机数 (1, 100)
判断 (随机数 ＝ 1)
次数 [1] ＝ 次数 [1] ＋ 1
判断 (随机数 ＝ 10)
次数 [2] ＝ 次数 [2] ＋ 1
判断 (随机数 ＝ 25)
次数 [3] ＝ 次数 [3] ＋ 1
判断 (随机数 ＝ 42)
次数 [4] ＝ 次数 [4] ＋ 1



计次循环尾 ()
计次循环首 (4, i)
调试输出 (姓名 [i] ＋ “:”, 次数 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
简化2

变量名	类 型	静态	数组	备 注
姓名	文本型		3
次数	整数型		3
统计结果	文本型
n	整数型
随机数	整数型

姓名 ＝ { “小李”, “小王”, “小张” }
置随机数种子 ()
判断循环首 (真)
次数 [1] ＝ 0
次数 [2] ＝ 0
次数 [3] ＝ 0
计次循环首 (100, n)
随机数 ＝ 取随机数 (1, 100)
判断 (随机数 ＝ 1)
次数 [1] ＝ 次数 [1] ＋ 1
判断 (随机数 ＝ 3)
次数 [2] ＝ 次数 [2] ＋ 1
判断 (随机数 ＝ 5)
次数 [3] ＝ 次数 [3] ＋ 1



计次循环尾 ()
计次循环首 (3, n)
调试输出 (姓名 [n] ＋ “来访次数:”, 次数 [n])
计次循环尾 ()
调试输出 (“分隔符--------------------------------------------”)
延迟 (10000)
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 简化<br /> .局部变量 姓名, 文本型, , "4"<br /> .局部变量 次数, 整数型, , "4"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 姓名 ＝ { “小李”, “小王”, “小张”, “小明” }<br /> 次数 ＝ { 0, 0, 0, 0 }<br /> 置随机数种子 ()<br /> .计次循环首 (100, n)<br />     随机数 ＝ 取随机数 (1, 100)<br />     .判断开始 (随机数 ＝ 1)<br />         次数 [1] ＝ 次数 [1] ＋ 1<br />     .判断 (随机数 ＝ 10)<br />         次数 [2] ＝ 次数 [2] ＋ 1<br />     .判断 (随机数 ＝ 25)<br />         次数 [3] ＝ 次数 [3] ＋ 1<br />     .判断 (随机数 ＝ 42)<br />         次数 [4] ＝ 次数 [4] ＋ 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (4, i)<br />     调试输出 (姓名 <i> ＋ “:”, 次数 <i>)<br /> .计次循环尾 ()<br /> <br /> .子程序 简化2<br /> .局部变量 姓名, 文本型, , "3"<br /> .局部变量 次数, 整数型, , "3"<br /> .局部变量 统计结果, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> 姓名 ＝ { “小李”, “小王”, “小张” }<br /> 置随机数种子 ()<br /> .判断循环首 (真)<br />     次数 [1] ＝ 0<br />     次数 [2] ＝ 0<br />     次数 [3] ＝ 0<br />     .计次循环首 (100, n)<br />         随机数 ＝ 取随机数 (1, 100)<br />         .判断开始 (随机数 ＝ 1)<br />             次数 [1] ＝ 次数 [1] ＋ 1<br />         .判断 (随机数 ＝ 3)<br />             次数 [2] ＝ 次数 [2] ＋ 1<br />         .判断 (随机数 ＝ 5)<br />             次数 [3] ＝ 次数 [3] ＋ 1<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (3, n)<br />         调试输出 (姓名 [n] ＋ “来访次数:”, 次数 [n])<br />     .计次循环尾 ()<br />     调试输出 (“分隔符--------------------------------------------”)<br />     延迟 (10000)<br /> <br /> .判断循环尾 ()

大漠苍狼易语言

丢给ai就行了，三秒出结果

fq19851220

你加10秒的延迟干嘛

bttp0059

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
小李次数	整数型
小王次数	整数型
停止	逻辑型
小张次数	整数型

子程序名	返回值类型	公开	备 注
简化

变量名	类 型	静态	数组	备 注
n	整数型
数值	整数型

判断循环首 (停止 ＝ 真)
如果真 (停止 ＝ 假)
跳出循环 ()
计次循环首 (100, n)
数值 ＝ 取随机数 (1, 5)
判断 (数值 ＝ 1)
小李次数 ＝ 小李次数 ＋ 1

判断 (数值 ＝ 3)
小王次数 ＝ 小王次数 ＋ 1
判断 (数值 ＝ 5)
小张次数 ＝ 小张次数 ＋ 1



计次循环尾 ()
调试输出 (“小李”, 小李次数)
调试输出 (“小王”, 小王次数)
调试输出 (“小张”, 小张次数)
调试输出 (“----------------”)
处理事件 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (取反 (停止) ＝ 真)
停止 ＝ 真
停止 ＝ 假
简化 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 小李次数, 整数型<br /> .程序集变量 小王次数, 整数型<br /> .程序集变量 停止, 逻辑型<br /> .程序集变量 小张次数, 整数型<br /> <br /> .子程序 简化<br /> .局部变量 n, 整数型<br /> .局部变量 数值, 整数型<br /> <br /> .判断循环首 (停止 ＝ 真)<br />     .如果真 (停止 ＝ 假)<br />         跳出循环 ()<br />     .如果真结束<br />     .计次循环首 (100, n)<br />         数值 ＝ 取随机数 (1, 5)<br /> <br />         .判断开始 (数值 ＝ 1)<br />             小李次数 ＝ 小李次数 ＋ 1<br /> <br />         .判断 (数值 ＝ 3)<br />             小王次数 ＝ 小王次数 ＋ 1<br /> <br />         .判断 (数值 ＝ 5)<br />             小张次数 ＝ 小张次数 ＋ 1<br />         .默认<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (“小李”, 小李次数)<br />     调试输出 (“小王”, 小王次数)<br />     调试输出 (“小张”, 小张次数)<br />     调试输出 (“----------------”)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (取反 (停止) ＝ 真)<br />     停止 ＝ 真<br /> .否则<br />     停止 ＝ 假<br /> .如果结束<br /> 简化 ()

数组扔了 加个开关循环

黑咖啡

你直接说清楚你的需求，才有更简单的代码。
你这代码在我看来，就是循环取来访次数取随机数，既然都是随机数了，所以意义是什么，直接来访次数=随机数有什么区别

haoren1212

  

数据类型名	公开	备 注
名称数组
成员名	类 型	传址	数组	备 注
名称	文本型
比对值	整数型
次数	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
n	整数型
临时数据	整数型
小李
小王
小张
小明
临时_名称数组	文本型		0
临时_名称	名称数组
名称数组	名称数组		0
比对数组	整数型		0
i	整数型

临时_名称数组 ＝ { “小李”, “小王”, “小张”, “小明” }
比对数组 ＝ { 1, 10, 25, 42 }
计次循环首 (取数组成员数 (临时_名称数组), i)
临时_名称.名称 ＝ 临时_名称数组 [i]
临时_名称.比对值 ＝ 比对数组 [i]
加入成员 (名称数组, 临时_名称)
计次循环尾 ()
计次循环首 (100, )
临时数据 ＝ 取随机数 (1, 100)
计次循环首 (取数组成员数 (比对数组), n)
如果真 (临时数据 ＝ 名称数组 [n].比对值)
名称数组 [n].次数 ＝ 名称数组 [n].次数 ＋ 1

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (比对数组), n)
调试输出 (名称数组 [n].次数)
计次循环尾 ()
' 上面这个方法也是对的，只是感觉太弱智了，怕消耗系统性能，
' 因为这个操作要反复进行，因为有可能要记录的不只这四个变量，
' 如果不用任何窗口组件，请问怎么用自定义数据或数组或其它方式达到以上功能。

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
统计数组	文本型		0
n	整数型
来访人员	文本型
小李数量	整数型
小张数量	整数型
小王数量	整数型
名称数组	文本型		0
自定义_名称	名称数组
自定义_名称数组	名称数组		0
i	整数型
比对值	整数型		0

按钮2.禁止 ＝ 真
判断循环首 (真)
' n ＝ 0
' 小李数量 ＝ 0
' 小张数量 ＝ 0
' 小王数量 ＝ 0
清除数组 (自定义_名称数组)
清除数组 (统计数组)
名称数组 ＝ { “小李”, “小王”, “小张” }
比对值 ＝ { 1, 3, 5 }
如果真 (取数组成员数 (名称数组) ≠ 取数组成员数 (比对值))
返回 ()
计次循环首 (取数组成员数 (名称数组), n)
自定义_名称.名称 ＝ 名称数组 [n]
自定义_名称.比对值 ＝ 比对值 [n]
加入成员 (自定义_名称数组, 自定义_名称)
计次循环尾 ()
计次循环首 (100, n)
计次循环首 (取数组成员数 (自定义_名称数组), i)
如果真 (取随机数 (1, 100) ＝ 自定义_名称数组 [i].比对值)
加入成员 (统计数组, 自定义_名称数组 [i].名称)

计次循环尾 ()
计次循环尾 ()
调试输出 (统计数组)
计次循环首 (取数组成员数 (统计数组), n)
计次循环首 (取数组成员数 (自定义_名称数组), i)
如果真 (统计数组 [n] ＝ 自定义_名称数组 [i].名称)
自定义_名称数组 [i].次数 ＝ 自定义_名称数组 [i].次数 ＋ 1

计次循环尾 ()
计次循环尾 ()
计次循环首 (取数组成员数 (名称数组), n)
调试输出 (自定义_名称数组 [n].次数)
计次循环尾 ()
调试输出 (“分隔符--------------------------------------------”)
延迟 (10000)
判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> .数据类型 名称数组<br />     .成员 名称, 文本型<br />     .成员 比对值, 整数型<br />     .成员 次数, 整数型<br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 临时数据, 整数型<br /> .局部变量 小李<br /> .局部变量 小王<br /> .局部变量 小张<br /> .局部变量 小明<br /> .局部变量 临时_名称数组, 文本型, , "0"<br /> .局部变量 临时_名称, 名称数组<br /> .局部变量 名称数组, 名称数组, , "0"<br /> .局部变量 比对数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 临时_名称数组 ＝ { “小李”, “小王”, “小张”, “小明” }<br /> 比对数组 ＝ { 1, 10, 25, 42 }<br /> .计次循环首 (取数组成员数 (临时_名称数组), i)<br />     临时_名称.名称 ＝ 临时_名称数组 <i><br />     临时_名称.比对值 ＝ 比对数组 <i><br />     加入成员 (名称数组, 临时_名称)<br /> .计次循环尾 ()<br /> .计次循环首 (100, )<br />     临时数据 ＝ 取随机数 (1, 100)<br />     .计次循环首 (取数组成员数 (比对数组), n)<br />         .如果真 (临时数据 ＝ 名称数组 [n].比对值)<br />             名称数组 [n].次数 ＝ 名称数组 [n].次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (比对数组), n)<br />     调试输出 (名称数组 [n].次数)<br /> .计次循环尾 ()<br /> <br /> <br /> ' 上面这个方法也是对的，只是感觉太弱智了，怕消耗系统性能，<br /> ' 因为这个操作要反复进行，因为有可能要记录的不只这四个变量，<br /> ' 如果不用任何窗口组件，请问怎么用自定义数据或数组或其它方式达到以上功能。<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 统计数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 来访人员, 文本型<br /> .局部变量 小李数量, 整数型<br /> .局部变量 小张数量, 整数型<br /> .局部变量 小王数量, 整数型<br /> .局部变量 名称数组, 文本型, , "0"<br /> .局部变量 自定义_名称, 名称数组<br /> .局部变量 自定义_名称数组, 名称数组, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 比对值, 整数型, , "0"<br /> <br /> 按钮2.禁止 ＝ 真<br /> .判断循环首 (真)<br />     ' n ＝ 0<br />     ' 小李数量 ＝ 0<br />     ' 小张数量 ＝ 0<br />     ' 小王数量 ＝ 0<br />     清除数组 (自定义_名称数组)<br />     清除数组 (统计数组)<br />     名称数组 ＝ { “小李”, “小王”, “小张” }<br />     比对值 ＝ { 1, 3, 5 }<br />     .如果真 (取数组成员数 (名称数组) ≠ 取数组成员数 (比对值))<br />         返回 ()<br />     .如果真结束<br />     .计次循环首 (取数组成员数 (名称数组), n)<br />         自定义_名称.名称 ＝ 名称数组 [n]<br />         自定义_名称.比对值 ＝ 比对值 [n]<br />         加入成员 (自定义_名称数组, 自定义_名称)<br />     .计次循环尾 ()<br />     .计次循环首 (100, n)<br />         .计次循环首 (取数组成员数 (自定义_名称数组), i)<br />             .如果真 (取随机数 (1, 100) ＝ 自定义_名称数组 <i>.比对值)<br />                 加入成员 (统计数组, 自定义_名称数组 <i>.名称)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     调试输出 (统计数组)<br /> <br />     .计次循环首 (取数组成员数 (统计数组), n)<br />         .计次循环首 (取数组成员数 (自定义_名称数组), i)<br />             .如果真 (统计数组 [n] ＝ 自定义_名称数组 <i>.名称)<br />                 自定义_名称数组 <i>.次数 ＝ 自定义_名称数组 <i>.次数 ＋ 1<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (名称数组), n)<br />         调试输出 (自定义_名称数组 [n].次数)<br />     .计次循环尾 ()<br /> <br />     调试输出 (“分隔符--------------------------------------------”)<br />     延迟 (10000)<br /> .判断循环尾 ()

紫极

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
来访人员数组	来访人员		0
i	整数型
index	整数型
姓名数组	文本型

加入成员 (来访人员数组, 登记来访人员 (“小李”, 1))
加入成员 (来访人员数组, 登记来访人员 (“小王”, 3))
加入成员 (来访人员数组, 登记来访人员 (“小张”, 5))
判断循环首 (真)
计次循环首 (100, )
计次循环首 (取数组成员数 (来访人员数组), i)
如果真 (取随机数 (1, 100) ＝ 来访人员数组 [i].随机数)
index ＝ i
跳出循环 ()

计次循环尾 ()
如果真 (index ＞ 0)
来访人员数组 [index].次数 ＝ 来访人员数组 [index].次数 ＋ 1

计次循环尾 ()
计次循环首 (取数组成员数 (来访人员数组), i)
调试输出 (来访人员数组 [i].姓名 ＋ “来访次数:”, 来访人员数组 [i].次数)
来访人员数组 [i].次数 ＝ 0
计次循环尾 ()
调试输出 (“================”)
延时 (1000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
登记来访人员	来访人员
参数名	类 型	参考	可空	数组	备 注
姓名	文本型
随机数	整数型

变量名	类 型	静态	数组	备 注
来访人员	来访人员

来访人员.姓名 ＝ 姓名
来访人员.随机数 ＝ 随机数
返回 (来访人员)

数据类型名	公开	备 注
来访人员
成员名	类 型	传址	数组	备 注
姓名	文本型
次数	整数型
随机数	整数型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 来访人员数组, 来访人员, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 姓名数组, 文本型<br /> <br /> 加入成员 (来访人员数组, 登记来访人员 (“小李”, 1))<br /> 加入成员 (来访人员数组, 登记来访人员 (“小王”, 3))<br /> 加入成员 (来访人员数组, 登记来访人员 (“小张”, 5))<br /> .判断循环首 (真)<br />     .计次循环首 (100, )<br />         .计次循环首 (取数组成员数 (来访人员数组), i)<br />             .如果真 (取随机数 (1, 100) ＝ 来访人员数组 <i>.随机数)<br />                 index ＝ i<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         .如果真 (index ＞ 0)<br />             来访人员数组 [index].次数 ＝ 来访人员数组 [index].次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (来访人员数组), i)<br />         调试输出 (来访人员数组 <i>.姓名 ＋ “来访次数:”, 来访人员数组 <i>.次数)<br />         来访人员数组 <i>.次数 ＝ 0<br />     .计次循环尾 ()<br />     调试输出 (“================”)<br />     延时 (1000)<br /> .判断循环尾 ()<br /> <br /> .子程序 登记来访人员, 来访人员<br /> .参数 姓名, 文本型<br /> .参数 随机数, 整数型<br /> .局部变量 来访人员, 来访人员<br /> <br /> 来访人员.姓名 ＝ 姓名<br /> 来访人员.随机数 ＝ 随机数<br /> 返回 (来访人员)<br /> <br /> <br /> <br /> .版本 2<br /> <br /> .数据类型 来访人员<br />     .成员 姓名, 文本型<br />     .成员 次数, 整数型<br />     .成员 随机数, 整数型

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
统一随机数序列种子	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
n	整数型
临时数据	整数型
小李
小王
小张
小明

置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一
小李 ＝ 0
小王 ＝ 0
小张 ＝ 0
小明 ＝ 0
计次循环首 (100, n)
临时数据 ＝ 取随机数 (1, 100)
如果 (临时数据 ＝ 1)
小李 ＝ 小李 ＋ 1
如果 (临时数据 ＝ 10)
小王 ＝ 小王 ＋ 1
如果 (临时数据 ＝ 25)
小张 ＝ 小张 ＋ 1
如果 (临时数据 ＝ 42)
小明 ＝ 小明 ＋ 1






计次循环尾 ()
调试输出 (小李)
调试输出 (小王)
调试输出 (小张)
调试输出 (小明)
' 上面这个方法也是对的，只是感觉太弱智了，怕消耗系统性能，
' 因为这个操作要反复进行，因为有可能要记录的不只这四个变量，
' 如果不用任何窗口组件，请问怎么用自定义数据或数组或其它方式达到以上功能。

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
统计数组	文本型		0
n	整数型
来访人员	文本型
小李数量	整数型
小张数量	整数型
小王数量	整数型

置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一
按钮2.禁止 ＝ 真
判断循环首 (真)
n ＝ 0
小李数量 ＝ 0
小张数量 ＝ 0
小王数量 ＝ 0
清除数组 (统计数组)
计次循环首 (100, n)
如果 (取随机数 (1, 100) ＝ 1)
来访人员 ＝ “小李”
如果 (取随机数 (1, 100) ＝ 3)
来访人员 ＝ “小王”
如果真 (取随机数 (1, 100) ＝ 5)
来访人员 ＝ “小张”


如果真 (来访人员 ≠ “”)
加入成员 (统计数组, 来访人员)

计次循环尾 ()
计次循环首 (取数组成员数 (统计数组), n)
如果真 (统计数组 [n] ＝ “小李”)
小李数量 ＝ 小李数量 ＋ 1
如果真 (统计数组 [n] ＝ “小王”)
小王数量 ＝ 小王数量 ＋ 1
如果真 (统计数组 [n] ＝ “小张”)
小张数量 ＝ 小张数量 ＋ 1

计次循环尾 ()
调试输出 (“小李来访次数:”, 小李数量)
调试输出 (“小王来访次数:”, 小王数量)
调试输出 (“小张来访次数:”, 小张数量)
调试输出 (“分隔符--------------------------------------------”)
延迟 (10000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

统一随机数序列种子 ＝ 2026
调试输出 (“按钮1随机算法”)
置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一
子程序1 (分割文本 (“1 小李,10 小王,25 小张,42 小明”, , ), 100, 真)
调试输出 (“按钮2随机算法”)
置随机数种子 (统一随机数序列种子)
子程序1 (分割文本 (“1 小李,3 小王,5 小张”, , ), 100)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参数1序号和人猿名字	文本型
参数2来访总次数	整数型
参数3按钮1算法	逻辑型				按钮1的随机算法与按钮2的随机算法切换

变量名	类 型	静态	数组	备 注
随机序号	整数型
人猿序号	整数型
来访次数	整数型		0
上次人猿序号	整数型
人数	整数型
n	整数型

人数 ＝ 取数组成员数 (参数1序号和人猿名字)
重定义数组 (来访次数, 假, 人数)
计次循环首 (参数2来访总次数, n)
计次循环首 (人数, 人猿序号)
判断 (参数3按钮1算法 ＝ 真)
如果真 (人猿序号 ＝ 1)  ' 按钮1算法，每次来访次数只执行一次
随机序号 ＝ 取随机数 (1, 100)

随机序号 ＝ 取随机数 (1, 100)  ' 按钮2算法，每次来访次数最多可能会执行人数的次数随机，如三人可能会出现三次取随机数

如果真 (随机序号 ＝ 到整数 (参数1序号和人猿名字 [人猿序号]))
上次人猿序号 ＝ 人猿序号
如果真 (参数3按钮1算法 ＝ 真)  ' 按钮1算法，抽到的加+1
来访次数 [上次人猿序号] ＝ 来访次数 [上次人猿序号] ＋ 1
跳出循环 ()

计次循环尾 ()
如果真 (上次人猿序号 ≠ 0 且 参数3按钮1算法 ＝ 假)  ' 按钮2算法，抽不到的时候会把上次抽到的+1
来访次数 [上次人猿序号] ＝ 来访次数 [上次人猿序号] ＋ 1

计次循环尾 ()
计次循环首 (人数, n)
调试输出 (取文本右边 (参数1序号和人猿名字 [n], 取文本长度 (参数1序号和人猿名字 [n]) － 寻找文本 (参数1序号和人猿名字 [n], “ ”, , 假)), 来访次数 [n])
计次循环尾 ()
' 调试输出 (来访次数)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 统一随机数序列种子, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 临时数据, 整数型<br /> .局部变量 小李<br /> .局部变量 小王<br /> .局部变量 小张<br /> .局部变量 小明<br /> <br /> 置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一<br /> 小李 ＝ 0<br /> 小王 ＝ 0<br /> 小张 ＝ 0<br /> 小明 ＝ 0<br /> .计次循环首 (100, n)<br />     临时数据 ＝ 取随机数 (1, 100)<br />     .如果 (临时数据 ＝ 1)<br />         小李 ＝ 小李 ＋ 1<br />     .否则<br />         .如果 (临时数据 ＝ 10)<br />             小王 ＝ 小王 ＋ 1<br />         .否则<br />             .如果 (临时数据 ＝ 25)<br />                 小张 ＝ 小张 ＋ 1<br />             .否则<br />                 .如果 (临时数据 ＝ 42)<br />                     小明 ＝ 小明 ＋ 1<br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (小李)<br /> 调试输出 (小王)<br /> 调试输出 (小张)<br /> 调试输出 (小明)<br /> ' 上面这个方法也是对的，只是感觉太弱智了，怕消耗系统性能，<br /> ' 因为这个操作要反复进行，因为有可能要记录的不只这四个变量，<br /> ' 如果不用任何窗口组件，请问怎么用自定义数据或数组或其它方式达到以上功能。<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 统计数组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 来访人员, 文本型<br /> .局部变量 小李数量, 整数型<br /> .局部变量 小张数量, 整数型<br /> .局部变量 小王数量, 整数型<br /> <br /> 置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一<br /> 按钮2.禁止 ＝ 真<br /> .判断循环首 (真)<br />     n ＝ 0<br />     小李数量 ＝ 0<br />     小张数量 ＝ 0<br />     小王数量 ＝ 0<br />     清除数组 (统计数组)<br />     .计次循环首 (100, n)<br />         .如果 (取随机数 (1, 100) ＝ 1)<br />             来访人员 ＝ “小李”<br />         .否则<br />             .如果 (取随机数 (1, 100) ＝ 3)<br />                 来访人员 ＝ “小王”<br />             .否则<br />                 .如果真 (取随机数 (1, 100) ＝ 5)<br />                     来访人员 ＝ “小张”<br />                 .如果真结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br />         .如果真 (来访人员 ≠ “”)<br />             加入成员 (统计数组, 来访人员)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (取数组成员数 (统计数组), n)<br /> <br />         .如果真 (统计数组 [n] ＝ “小李”)<br />             小李数量 ＝ 小李数量 ＋ 1<br /> <br />         .如果真结束<br />         .如果真 (统计数组 [n] ＝ “小王”)<br />             小王数量 ＝ 小王数量 ＋ 1<br /> <br />         .如果真结束<br />         .如果真 (统计数组 [n] ＝ “小张”)<br />             小张数量 ＝ 小张数量 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (“小李来访次数:”, 小李数量)<br />     调试输出 (“小王来访次数:”, 小王数量)<br />     调试输出 (“小张来访次数:”, 小张数量)<br />     调试输出 (“分隔符--------------------------------------------”)<br />     延迟 (10000)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 统一随机数序列种子 ＝ 2026<br /> 调试输出 (“按钮1随机算法”)<br /> 置随机数种子 (统一随机数序列种子)  ' 确保生成的随机数统一<br /> 子程序1 (分割文本 (“1 小李,10 小王,25 小张,42 小明”, , ), 100, 真)<br /> 调试输出 (“按钮2随机算法”)<br /> 置随机数种子 (统一随机数序列种子)<br /> 子程序1 (分割文本 (“1 小李,3 小王,5 小张”, , ), 100)<br /> <br /> .子程序 子程序1<br /> .参数 参数1序号和人猿名字, 文本型, 数组<br /> .参数 参数2来访总次数, 整数型<br /> .参数 参数3按钮1算法, 逻辑型, 可空, 按钮1的随机算法与按钮2的随机算法切换<br /> .局部变量 随机序号, 整数型<br /> .局部变量 人猿序号, 整数型<br /> .局部变量 来访次数, 整数型, , "0"<br /> .局部变量 上次人猿序号, 整数型<br /> .局部变量 人数, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 人数 ＝ 取数组成员数 (参数1序号和人猿名字)<br /> 重定义数组 (来访次数, 假, 人数)<br /> .计次循环首 (参数2来访总次数, n)<br />     .计次循环首 (人数, 人猿序号)<br />         .判断开始 (参数3按钮1算法 ＝ 真)<br />             .如果真 (人猿序号 ＝ 1)  ' 按钮1算法，每次来访次数只执行一次<br />                 随机序号 ＝ 取随机数 (1, 100)<br />             .如果真结束<br /> <br />         .默认<br />             随机序号 ＝ 取随机数 (1, 100)  ' 按钮2算法，每次来访次数最多可能会执行人数的次数随机，如三人可能会出现三次取随机数<br />         .判断结束<br /> <br />         .如果真 (随机序号 ＝ 到整数 (参数1序号和人猿名字 [人猿序号]))<br />             上次人猿序号 ＝ 人猿序号<br />             .如果真 (参数3按钮1算法 ＝ 真)  ' 按钮1算法，抽到的加+1<br />                 来访次数 [上次人猿序号] ＝ 来访次数 [上次人猿序号] ＋ 1<br />             .如果真结束<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (上次人猿序号 ≠ 0 且 参数3按钮1算法 ＝ 假)  ' 按钮2算法，抽不到的时候会把上次抽到的+1<br />         来访次数 [上次人猿序号] ＝ 来访次数 [上次人猿序号] ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (人数, n)<br />     调试输出 (取文本右边 (参数1序号和人猿名字 [n], 取文本长度 (参数1序号和人猿名字 [n]) － 寻找文本 (参数1序号和人猿名字 [n], “ ”, , 假)), 来访次数 [n])<br /> .计次循环尾 ()<br /> ' 调试输出 (来访次数)

补充内容 (2026-6-9 13:49):
我把你写的两种随机的算法合并一起了，保留了你写的那种随机的规律，可以说还是原来的味道。

补充内容 (2026-6-9 14:13):
我看楼上写的代码添加人猿挺麻烦的，不像我的能写在一行里，用空格和逗号就能区分开来

补充内容 (2026-6-9 14:17):
'如果不想每次随机数是一样的就留空参数  例： 置随机数种子 ()  '留空时将默认使用当前计算机系统的时钟值

382913699

举一反三 使用 _时钟1_周期事件  每次跟执行完 随机给个值就行