简化代码写法

woyao2991314

  

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

变量名	类 型	静态	数组	备 注
n	整数型
数组1	整数型		0
数组2	整数型		0
数组3	整数型		0
数组4	整数型		0
数组5	整数型		0

' 几十个子程序，除了下面一个一个判断有没其它简便的写法
' 例如说子程序名n几，可以用变量变化，但是不能！
计次循环首 (50, n)
判断 (n ＝ 1)
加入成员 (n1 (123), 数组1)
加入成员 (n1 (123), 数组2)
加入成员 (n1 (123), 数组3)
加入成员 (n1 (123), 数组4)
加入成员 (n1 (123), 数组5)
判断 (n ＝ 2)
加入成员 (n2 (123), 数组1)
加入成员 (n2 (123), 数组2)
加入成员 (n2 (123), 数组3)
加入成员 (n2 (123), 数组4)
加入成员 (n2 (123), 数组5)
判断 (n ＝ 3)
加入成员 (n3 (123), 数组1)
加入成员 (n3 (123), 数组2)
加入成员 (n3 (123), 数组3)
加入成员 (n3 (123), 数组4)
加入成员 (n3 (123), 数组5)
判断 (n ＝ 4)
加入成员 (n4 (123), 数组1)
加入成员 (n4 (123), 数组2)
加入成员 (n4 (123), 数组3)
加入成员 (n4 (123), 数组4)
加入成员 (n4 (123), 数组5)
判断 (n ＝ 5)
加入成员 (n5 (123), 数组1)
加入成员 (n5 (123), 数组2)
加入成员 (n5 (123), 数组3)
加入成员 (n5 (123), 数组4)
加入成员 (n5 (123), 数组5)



计次循环尾 ()

子程序名	返回值类型	公开	备 注
n1	整数型
参数名	类 型	参考	可空	数组	备 注
数	整数型

返回 (1)

子程序名	返回值类型	公开	备 注
n2	整数型
参数名	类 型	参考	可空	数组	备 注
数	整数型

返回 (2)

子程序名	返回值类型	公开	备 注
n3	整数型
参数名	类 型	参考	可空	数组	备 注
数	整数型

返回 (3)

子程序名	返回值类型	公开	备 注
n4	整数型
参数名	类 型	参考	可空	数组	备 注
数	整数型

返回 (4)

子程序名	返回值类型	公开	备 注
n5	整数型
参数名	类 型	参考	可空	数组	备 注
数	整数型

返回 (5)

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 n, 整数型<br /> .局部变量 数组1, 整数型, , "0"<br /> .局部变量 数组2, 整数型, , "0"<br /> .局部变量 数组3, 整数型, , "0"<br /> .局部变量 数组4, 整数型, , "0"<br /> .局部变量 数组5, 整数型, , "0"<br /> <br /> <br /> ' 几十个子程序，除了下面一个一个判断有没其它简便的写法<br /> ' 例如说子程序名n几，可以用变量变化，但是不能！<br /> .计次循环首 (50, n)<br />     .判断开始 (n ＝ 1)<br />         加入成员 (n1 (123), 数组1)<br />         加入成员 (n1 (123), 数组2)<br />         加入成员 (n1 (123), 数组3)<br />         加入成员 (n1 (123), 数组4)<br />         加入成员 (n1 (123), 数组5)<br />     .判断 (n ＝ 2)<br />         加入成员 (n2 (123), 数组1)<br />         加入成员 (n2 (123), 数组2)<br />         加入成员 (n2 (123), 数组3)<br />         加入成员 (n2 (123), 数组4)<br />         加入成员 (n2 (123), 数组5)<br />     .判断 (n ＝ 3)<br />         加入成员 (n3 (123), 数组1)<br />         加入成员 (n3 (123), 数组2)<br />         加入成员 (n3 (123), 数组3)<br />         加入成员 (n3 (123), 数组4)<br />         加入成员 (n3 (123), 数组5)<br />     .判断 (n ＝ 4)<br />         加入成员 (n4 (123), 数组1)<br />         加入成员 (n4 (123), 数组2)<br />         加入成员 (n4 (123), 数组3)<br />         加入成员 (n4 (123), 数组4)<br />         加入成员 (n4 (123), 数组5)<br />     .判断 (n ＝ 5)<br />         加入成员 (n5 (123), 数组1)<br />         加入成员 (n5 (123), 数组2)<br />         加入成员 (n5 (123), 数组3)<br />         加入成员 (n5 (123), 数组4)<br />         加入成员 (n5 (123), 数组5)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 n1, 整数型<br /> .参数 数, 整数型<br /> <br /> 返回 (1)<br /> <br /> .子程序 n2, 整数型<br /> .参数 数, 整数型<br /> <br /> 返回 (2)<br /> <br /> .子程序 n3, 整数型<br /> .参数 数, 整数型<br /> <br /> 返回 (3)<br /> <br /> .子程序 n4, 整数型<br /> .参数 数, 整数型<br /> <br /> 返回 (4)<br /> <br /> .子程序 n5, 整数型<br /> .参数 数, 整数型<br /> <br /> 返回 (5)

Marvin

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)

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

.局部变量 n, 整数型
.局部变量 数组1, 整数型, , "0"
.局部变量 数组2, 整数型, , "0"
.局部变量 数组3, 整数型, , "0"
.局部变量 数组4, 整数型, , "0"
.局部变量 数组5, 整数型, , "0"
.局部变量 结果, 整数型
.局部变量 i, 整数型
计次循环首 (50, n)
结果 ＝ 执行子程序 (n)
调试输出 (“n=”, n, “结果=”, 结果)
计次循环首 (5, i)
判断 (i ＝ 1)
加入成员 (数组1, 结果)
判断 (i ＝ 2)
加入成员 (数组2, 结果)
判断 (i ＝ 3)
加入成员 (数组3, 结果)
判断 (i ＝ 4)
加入成员 (数组4, 结果)
判断 (i ＝ 5)
加入成员 (数组5, 结果)

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
执行子程序	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
n	整数型

.局部变量 返回值, 整数型
判断 (n ＝ 1)
返回 (n1 (123))
判断 (n ＝ 2)
返回 (n2 (123))
判断 (n ＝ 3)
返回 (n3 (123))
判断 (n ＝ 4)
返回 (n4 (123))
判断 (n ＝ 5)
返回 (n5 (123))
返回 (0)

子程序名	返回值类型	公开	备 注
n1	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (1)

子程序名	返回值类型	公开	备 注
n2	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (2)

子程序名	返回值类型	公开	备 注
n3	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (3)

子程序名	返回值类型	公开	备 注
n4	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (4)

子程序名	返回值类型	公开	备 注
n5	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (5)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />     子程序1 ()<br />     返回 (0)<br /> <br /> .子程序 子程序1<br />     .局部变量 n, 整数型<br />     .局部变量 数组1, 整数型, , "0"<br />     .局部变量 数组2, 整数型, , "0"<br />     .局部变量 数组3, 整数型, , "0"<br />     .局部变量 数组4, 整数型, , "0"<br />     .局部变量 数组5, 整数型, , "0"<br />     .局部变量 结果, 整数型<br />     .局部变量 i, 整数型<br /> <br />     .计次循环首 (50, n)<br />         结果 ＝ 执行子程序 (n)<br />         调试输出 (“n=”, n, “结果=”, 结果)<br />         .计次循环首 (5, i)<br />             .判断开始 (i ＝ 1)<br />                 加入成员 (数组1, 结果)<br />             .判断 (i ＝ 2)<br />                 加入成员 (数组2, 结果)<br />             .判断 (i ＝ 3)<br />                 加入成员 (数组3, 结果)<br />             .判断 (i ＝ 4)<br />                 加入成员 (数组4, 结果)<br />             .判断 (i ＝ 5)<br />                 加入成员 (数组5, 结果)<br />             .默认<br />             .判断结束<br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> <br /> .子程序 执行子程序, 整数型<br />     .参数 n, 整数型<br />     .局部变量 返回值, 整数型<br /> <br />     .判断开始 (n ＝ 1)<br />         返回 (n1 (123))<br />     .判断 (n ＝ 2)<br />         返回 (n2 (123))<br />     .判断 (n ＝ 3)<br />         返回 (n3 (123))<br />     .判断 (n ＝ 4)<br />         返回 (n4 (123))<br />     .判断 (n ＝ 5)<br />         返回 (n5 (123))<br />     .默认<br />         返回 (0)<br />     .判断结束<br /> <br /> .子程序 n1, 整数型<br />     .参数 数, 整数型<br />     返回 (1)<br /> <br /> .子程序 n2, 整数型<br />     .参数 数, 整数型<br />     返回 (2)<br /> <br /> .子程序 n3, 整数型<br />     .参数 数, 整数型<br />     返回 (3)<br /> <br /> .子程序 n4, 整数型<br />     .参数 数, 整数型<br />     返回 (4)<br /> <br /> .子程序 n5, 整数型<br />     .参数 数, 整数型<br />     返回 (5)

Marvin

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)

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

.局部变量 n, 整数型
.局部变量 结果, 整数型
.局部变量 子程序组, 子程序指针, , "5"
子程序组 ＝ { &n1, &n2, &n3, &n4, &n5 }
变量循环首 (1, 50, 1, n)
如果真 (n ≤ 5)
调用子程序 (子程序组 [n], , 结果, 123)
调试输出 (“n=”, n, “结果=”, 结果)

变量循环尾 ()

子程序名	返回值类型	公开	备 注
n1	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (1)

子程序名	返回值类型	公开	备 注
n2	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (2)

子程序名	返回值类型	公开	备 注
n3	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (3)

子程序名	返回值类型	公开	备 注
n4	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (4)

子程序名	返回值类型	公开	备 注
n5	整数型

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数	整数型

返回 (5)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />     子程序1 ()<br />     返回 (0)<br /> <br /> .子程序 子程序1<br />     .局部变量 n, 整数型<br />     .局部变量 结果, 整数型<br />     .局部变量 子程序组, 子程序指针, , "5"<br /> <br />     子程序组 ＝ { &n1, &n2, &n3, &n4, &n5 }<br />     .变量循环首 (1, 50, 1, n)<br />         .如果真 (n ≤ 5)<br />             调用子程序 (子程序组 [n], , 结果, 123)<br />             调试输出 (“n=”, n, “结果=”, 结果)<br />         .如果真结束<br />     .变量循环尾 ()<br /> <br /> .子程序 n1, 整数型<br />     .参数 数, 整数型<br />     返回 (1)<br /> <br /> .子程序 n2, 整数型<br />     .参数 数, 整数型<br />     返回 (2)<br /> <br /> .子程序 n3, 整数型<br />     .参数 数, 整数型<br />     返回 (3)<br /> <br /> .子程序 n4, 整数型<br />     .参数 数, 整数型<br />     返回 (4)<br /> <br /> .子程序 n5, 整数型<br />     .参数 数, 整数型<br />     返回 (5)

或是用这个

Marvin

Marvin 发表于 2026-7-18 11:40
[e=1].版本 2
.支持库 spec

Marvin

Marvin 发表于 2026-7-18 11:41

1.e (3.61 KB, 下载次数: 1)

昨天 11:46 上传

点击文件名下载附件

woyao2991314

Marvin 发表于 2026-7-18 11:41

子程序返回值 寄存到变量 再调用变量，是不是，调用5次 传不同参数，就得用5个变量做中继 后加入成员

算法艺术家

如果很多的话 就用哈希表给子程序做路由

Marvin

woyao2991314 发表于 2026-7-18 12:49
子程序返回值 寄存到变量 再调用变量，是不是，调用5次 传不同参数，就得用5个变量做中继 后加入成员 ...

是这样的，哥可以调试下

wtflxk

没有简化的写法 但是有批量的文本处理 在粘贴进去

明天自然醒

  

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

变量名	类 型	静态	数组	备 注
fns	子程序指针		0
i	整数型
ret	整数型

fns ＝ { &n1, &n2, &n3 }
计次循环首 (取数组成员数 (fns), i)
调用子程序 (fns [i], , ret, i)
调试输出 (ret)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
n1	整数型
参数名	类 型	参考	可空	数组	备 注
x	整数型

返回 (1)

子程序名	返回值类型	公开	备 注
n2	整数型
参数名	类 型	参考	可空	数组	备 注
x	整数型

返回 (2)

子程序名	返回值类型	公开	备 注
n3	整数型
参数名	类 型	参考	可空	数组	备 注
x	整数型

返回 (3)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 fns, 子程序指针, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ret, 整数型<br /> <br /> fns ＝ { &n1, &n2, &n3 }<br /> .计次循环首 (取数组成员数 (fns), i)<br />     调用子程序 (fns <i>, , ret, i)<br />     调试输出 (ret)<br /> .计次循环尾 ()<br /> <br /> .子程序 n1, 整数型<br /> .参数 x, 整数型<br /> <br /> 返回 (1)<br /> <br /> .子程序 n2, 整数型<br /> .参数 x, 整数型<br /> <br /> 返回 (2)<br /> <br /> .子程序 n3, 整数型<br /> .参数 x, 整数型<br /> <br /> 返回 (3)