不用窗口组件，完成数据记录功能

fourme2009

不用窗口组件，完成数据记录功能，我要反复清空，反复操作，我上面的变量方法也能达到。
但是感觉方法太弱智了。望大哥完成。谢谢了。有交易币打赏！
加入取出.e (149.22 KB, 下载次数: 4)

2026-6-8 18:52 上传

点击文件名下载附件

华庭大哥

  

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

变量名	类 型	静态	数组	备 注
统计数组	整数型		100
n	整数型
临时数据	整数型

计次循环首 (100, n)
临时数据 ＝ 取随机数 (1, 100)
统计数组 [临时数据] ＝ 统计数组 [临时数据] ＋ 1
计次循环尾 ()
调试输出 (“小李：”, 统计数组 [1])
调试输出 (“小王：”, 统计数组 [10])
调试输出 (“小张：”, 统计数组 [25])
调试输出 (“小明：”, 统计数组 [42])

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 统计数组, 整数型, , "100"<br /> .局部变量 n, 整数型<br /> .局部变量 临时数据, 整数型<br /> <br /> .计次循环首 (100, n)<br />     临时数据 ＝ 取随机数 (1, 100)<br />     统计数组 [临时数据] ＝ 统计数组 [临时数据] ＋ 1<br /> .计次循环尾 ()<br /> <br /> 调试输出 (“小李：”, 统计数组 [1])<br /> 调试输出 (“小王：”, 统计数组 [10])<br /> 调试输出 (“小张：”, 统计数组 [25])<br /> 调试输出 (“小明：”, 统计数组 [42])

Maxximal

那就写配置项咯

RainCharm

精币都快没有了，还有交易币？

夏朵朵的诗

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
n	整数型
临时数据	整数型
i	整数型
号码	整数型		4
次数	整数型		4
名字	文本型		4

名字 [1] ＝ “小李”
名字 [2] ＝ “小王”
名字 [3] ＝ “小张”
名字 [4] ＝ “小明”
号码 [1] ＝ 1
号码 [2] ＝ 10
号码 [3] ＝ 25
号码 [4] ＝ 42
计次循环首 (100, n)
临时数据 ＝ 取随机数 (1, 100)
计次循环首 (4, i)
如果 (临时数据 ＝ 号码 [i])
次数 [i] ＝ 次数 [i] ＋ 1
跳出循环 ()



计次循环尾 ()
计次循环尾 ()
计次循环首 (4, i)
调试输出 (名字 [i] ＋ “：” ＋ 到文本 (次数 [i]))
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 临时数据, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 号码, 整数型, , "4"<br /> .局部变量 次数, 整数型, , "4"<br /> .局部变量 名字, 文本型, , "4"<br /> <br /> 名字 [1] ＝ “小李”<br /> 名字 [2] ＝ “小王”<br /> 名字 [3] ＝ “小张”<br /> 名字 [4] ＝ “小明”<br /> <br /> 号码 [1] ＝ 1<br /> 号码 [2] ＝ 10<br /> 号码 [3] ＝ 25<br /> 号码 [4] ＝ 42<br /> <br /> .计次循环首 (100, n)<br />     临时数据 ＝ 取随机数 (1, 100)<br /> <br />     .计次循环首 (4, i)<br />         .如果 (临时数据 ＝ 号码 <i>)<br />             次数 <i> ＝ 次数 <i> ＋ 1<br />             跳出循环 ()<br />         .否则<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (4, i)<br />     调试输出 (名字 <i> ＋ “：” ＋ 到文本 (次数 <i>))<br /> .计次循环尾 ()

Suky

可以试试二维数组或者自定义数据类型