多个按钮点击后执行相似程序，想优化成一两个子程序就.....

了李李

我一个程序，现在有50个按钮，每个按钮单击后，会运行一个子程序，但这50个子程序基本一样，区域只是在按钮名字不同，调用的数组不同。想请大神给优化一下，希望只要一两个子程序就能实现！ 最开始只有20个，我就一个一个复制后改不同的数字。现在要变成50个，太多了，有些麻烦，就想有没有省事的少代码就能实现。谢谢！

  

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

如果 (按1 ＝ 1)
编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)
编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)
编辑框0.内容 ＝ 题目 [1]
超级按钮1.通常背景色 ＝ #蓝色
判断哪一行 (1)
按1 ＝ 按1 ＋ 1

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

如果 (按2 ＝ 1)
编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)
编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)
编辑框0.内容 ＝ 题目 [2]
超级按钮2.通常背景色 ＝ #蓝色
判断哪一行 (2)
按2 ＝ 按2 ＋ 1

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

如果 (按3 ＝ 1)
编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)
编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)
编辑框0.内容 ＝ 题目 [3]
超级按钮3.通常背景色 ＝ #蓝色
判断哪一行 (3)
按3 ＝ 按3 ＋ 1
' 等等，这样的子程序有50个，
如果 (编辑框7.内容 ＝ “1”)
_超级按钮1_被单击 ()
如果 (编辑框7.内容 ＝ “2”)
_超级按钮2_被单击 ()
如果 (编辑框7.内容 ＝ “3”)
_超级按钮3_被单击 ()
如果 (编辑框7.内容 ＝ “4”)
_超级按钮4_被单击 ()
如果 (编辑框7.内容 ＝ “5”)
_超级按钮5_被单击 ()
' 这样的子程序也是50个

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _超级按钮1_被单击<br /> <br /> .如果 (按1 ＝ 1)<br />     编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)<br />     编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)<br /> <br /> <br />     编辑框0.内容 ＝ 题目 [1]<br />     超级按钮1.通常背景色 ＝ #蓝色<br />     判断哪一行 (1)<br />     按1 ＝ 按1 ＋ 1<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _超级按钮2_被单击<br /> <br /> .如果 (按2 ＝ 1)<br />     编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)<br />     编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)<br /> <br />     编辑框0.内容 ＝ 题目 [2]<br />     超级按钮2.通常背景色 ＝ #蓝色<br />     判断哪一行 (2)<br />     按2 ＝ 按2 ＋ 1<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _超级按钮3_被单击<br /> <br /> .如果 (按3 ＝ 1)<br />     编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)<br />     编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)<br /> <br />     编辑框0.内容 ＝ 题目 [3]<br />     超级按钮3.通常背景色 ＝ #蓝色<br />     判断哪一行 (3)<br />     按3 ＝ 按3 ＋ 1<br /> <br /> ' 等等，这样的子程序有50个，<br /> <br /> .版本 2<br /> <br /> .如果 (编辑框7.内容 ＝ “1”)<br />     _超级按钮1_被单击 ()<br /> .否则<br />     .如果 (编辑框7.内容 ＝ “2”)<br />         _超级按钮2_被单击 ()<br />     .否则<br />         .如果 (编辑框7.内容 ＝ “3”)<br />             _超级按钮3_被单击 ()<br />         .否则<br />             .如果 (编辑框7.内容 ＝ “4”)<br />                 _超级按钮4_被单击 ()<br />             .否则<br />                 .如果 (编辑框7.内容 ＝ “5”)<br />                     _超级按钮5_被单击 ()<br /> '这样的子程序也是50个

补充内容 (2024-11-28 20:30):
不可行。 我这个软件的思路是，有50道题，对应50个按钮。50道题放在数组里，我单击一个按钮，就在对应的数组里提取一道题出来。后面还需要随机出题，题号会显示在 编辑框7，然后相当于单击了这个题号的按钮。

798924038

竞赛抢答题 - 50题求救.e (126.57 KB, 下载次数: 7)

2024-11-28 22:43 上传

点击文件名下载附件

在你原有一堆按钮的基础上做的。还给你完善了不重复随机选题

LEOONL

参考这个https://bbs.125.la/thread-14840943-1-1.html

liuqiqi87

用哈希表就可以了    把  编辑框7.内容 跟对应的 &_超级按钮(*)_被单击 的地址 存到哈希表里就可以了   

子程序名        返回值类型        公开        备 注
_超级按钮3_被单击                         
如果 (按3 ＝ 1)
编辑框6.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 1)
编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)
编辑框0.内容 ＝ 题目 [3]
超级按钮3.通常背景色 ＝ #蓝色
判断哪一行 (3)
按3 ＝ 按3 ＋ 1
' 等等，这样的子程序有50个，
调用地址= 哈希表.取值(编辑框7.内容)
调用子程序(调用地址)

了李李

LEOONL 发表于 2024-11-28 20:03
参考这个https://bbs.125.la/thread-14840943-1-1.html

不可行。 我这个软件的思路是，有50道题，对应50个按钮。50道题放在数组里，我单击一个按钮，就在对应的数组里提取一道题出来。后面还需要随机出题，题号会显示在 编辑框7，然后相当于单击了这个题号的按钮。

了李李

liuqiqi87 发表于 2024-11-28 20:18
用哈希表就可以了    把  编辑框7.内容 跟对应的 &_超级按钮(*)_被单击 的地址 存到哈希表里就可以了   

...

这个 哈希表，不懂。

frankiy

我觉得你把你的源代码发出来更好。不然我还要复现你的过程。

frankiy

多组件和事件的运用。

了李李

这是原代码， 实现的功能是： 竞赛题软件， 50道题，可以点按钮出题，也可以随机出题，每题只能出现一次，点击后或随机出题后不能再出这道题，每出一道题，总题 减1，出的题+1.

了李李

frankiy 发表于 2024-11-28 21:07
多组件和事件的运用。

楼下已发原代码了。麻烦看一下，谢谢！