这样子的代码如何简化呢

永美发

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
键代码标签	标签	0
键名标签	标签	0
代码	整数型

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

窗口_监视热键_zc (&响应监视事件)
加入成员 (键代码标签, 键代码标签1)
加入成员 (键代码标签, 键代码标签2)
加入成员 (键代码标签, 键代码标签3)
加入成员 (键代码标签, 键代码标签4)
加入成员 (键代码标签, 键代码标签5)
加入成员 (键代码标签, 键代码标签6)
加入成员 (键代码标签, 键代码标签7)
加入成员 (键代码标签, 键代码标签8)
加入成员 (键名标签, 键名标签1)
加入成员 (键名标签, 键名标签2)
加入成员 (键名标签, 键名标签3)
加入成员 (键名标签, 键名标签4)
加入成员 (键名标签, 键名标签5)
加入成员 (键名标签, 键名标签6)
加入成员 (键名标签, 键名标签7)
加入成员 (键名标签, 键名标签8)

子程序名	返回值类型	公开	备 注
响应监视事件
参数名	类 型	参考	可空	数组	备 注
功能键	整数型
键代码	整数型
按键状态	整数型

变量名	类 型	静态	数组	备 注
i	整数型
ii	整数型
iii	整数型

计次循环首 (8, i)
如果 (键代码标签 [i].标题 ＝ “”)
如果真 (按键状态 ＝ 2)
键代码标签 [i].标题 ＝ 到文本 (键代码)
键名标签 [i].标题 ＝ 键盘_键代码取键名 (键代码)
跳出循环 ()



计次循环尾 ()
如果 (键代码标签8.标题 ≠ “”)
如果真 (按键状态 ＝ 2)
计次循环首 (7, i)
如果 (i ＝ 1)
ii ＝ 8
iii ＝ ii － 1
如果 (i ＝ 2)
ii ＝ 7
iii ＝ ii － 1
如果 (i ＝ 3)
ii ＝ 6
iii ＝ ii － 1
如果 (i ＝ 4)
ii ＝ 5
iii ＝ ii － 1
如果 (i ＝ 5)
ii ＝ 4
iii ＝ ii － 1
如果 (i ＝ 6)
ii ＝ 3
iii ＝ ii － 1
如果 (i ＝ 7)
ii ＝ 2
iii ＝ ii － 1









键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题
键名标签 [ii].标题 ＝ 键名标签 [iii].标题
计次循环尾 ()
键代码标签1.标题 ＝ 到文本 (键代码)
键名标签1.标题 ＝ 键盘_键代码取键名 (键代码)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

窗口_监视热键_卸载 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 键代码标签, 标签, , "0"<br /> .程序集变量 键名标签, 标签, , "0"<br /> .程序集变量 代码, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口_监视热键_zc (&响应监视事件)<br /> <br /> 加入成员 (键代码标签, 键代码标签1)<br /> 加入成员 (键代码标签, 键代码标签2)<br /> 加入成员 (键代码标签, 键代码标签3)<br /> 加入成员 (键代码标签, 键代码标签4)<br /> 加入成员 (键代码标签, 键代码标签5)<br /> 加入成员 (键代码标签, 键代码标签6)<br /> 加入成员 (键代码标签, 键代码标签7)<br /> 加入成员 (键代码标签, 键代码标签8)<br /> <br /> 加入成员 (键名标签, 键名标签1)<br /> 加入成员 (键名标签, 键名标签2)<br /> 加入成员 (键名标签, 键名标签3)<br /> 加入成员 (键名标签, 键名标签4)<br /> 加入成员 (键名标签, 键名标签5)<br /> 加入成员 (键名标签, 键名标签6)<br /> 加入成员 (键名标签, 键名标签7)<br /> 加入成员 (键名标签, 键名标签8)<br /> <br /> <br /> .子程序 响应监视事件<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> <br /> .计次循环首 (8, i)<br />     .如果 (键代码标签 <i>.标题 ＝ “”)<br />         .如果真 (按键状态 ＝ 2)<br />             键代码标签 <i>.标题 ＝ 到文本 (键代码)<br />             键名标签 <i>.标题 ＝ 键盘_键代码取键名 (键代码)<br />         .如果真结束<br />         跳出循环 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .如果 (键代码标签8.标题 ≠ “”)<br />     .如果真 (按键状态 ＝ 2)<br />         .计次循环首 (7, i)<br />             .如果 (i ＝ 1)<br />                 ii ＝ 8<br />                 iii ＝ ii － 1<br />             .否则<br />                 .如果 (i ＝ 2)<br />                     ii ＝ 7<br />                     iii ＝ ii － 1<br />                 .否则<br />                     .如果 (i ＝ 3)<br />                         ii ＝ 6<br />                         iii ＝ ii － 1<br />                     .否则<br />                         .如果 (i ＝ 4)<br />                             ii ＝ 5<br />                             iii ＝ ii － 1<br />                         .否则<br />                             .如果 (i ＝ 5)<br />                                 ii ＝ 4<br />                                 iii ＝ ii － 1<br />                             .否则<br />                                 .如果 (i ＝ 6)<br />                                     ii ＝ 3<br />                                     iii ＝ ii － 1<br />                                 .否则<br />                                     .如果 (i ＝ 7)<br />                                         ii ＝ 2<br />                                         iii ＝ ii － 1<br />                                     .否则<br /> <br />                                     .如果结束<br /> <br />                                 .如果结束<br /> <br />                             .如果结束<br /> <br />                         .如果结束<br /> <br />                     .如果结束<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />             键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题<br />             键名标签 [ii].标题 ＝ 键名标签 [iii].标题<br />         .计次循环尾 ()<br />         键代码标签1.标题 ＝ 到文本 (键代码)<br />         键名标签1.标题 ＝ 键盘_键代码取键名 (键代码)<br />     .如果真结束<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 窗口_监视热键_卸载 ()

感觉这个循环这写的好繁琐
有么有那个大哥指点一下

深夜里的小哥

计次
ii=9-i
iii=8-i

Draco

中间的部分可以用
判断
效率会比如果高一些

寒潮

  

计次循环首 (7, i)
判断 (i ＝ 1)
ii ＝ 8
iii ＝ ii － 1
判断 (i ＝ 2)
ii ＝ 7
iii ＝ ii － 1
判断 (i ＝ 3)
ii ＝ 6
iii ＝ ii － 1
判断 (i ＝ 4)
ii ＝ 5
iii ＝ ii － 1
判断 (i ＝ 5)
ii ＝ 4
iii ＝ ii － 1
判断 (i ＝ 6)
ii ＝ 3
iii ＝ ii － 1
判断 (i ＝ 7)
ii ＝ 2
iii ＝ ii － 1



键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题
键名标签 [ii].标题 ＝ 键名标签 [iii].标题
计次循环尾 ()

.版本 2<br /> <br />         .计次循环首 (7, i)<br />             .判断开始 (i ＝ 1)<br />                 ii ＝ 8<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 2)<br />                 ii ＝ 7<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 3)<br />                 ii ＝ 6<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 4)<br />                 ii ＝ 5<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 5)<br />                 ii ＝ 4<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 6)<br />                 ii ＝ 3<br />                 iii ＝ ii － 1<br />             .判断 (i ＝ 7)<br />                 ii ＝ 2<br />                 iii ＝ ii － 1<br />             .默认<br /> <br />             .判断结束<br /> <br />             键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题<br />             键名标签 [ii].标题 ＝ 键名标签 [iii].标题<br />         .计次循环尾 ()

福仔

  

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

窗口_监视热键_zc (&响应监视事件)
加入成员 (键代码标签, 键代码标签1)
加入成员 (键代码标签, 键代码标签2)
加入成员 (键代码标签, 键代码标签3)
加入成员 (键代码标签, 键代码标签4)
加入成员 (键代码标签, 键代码标签5)
加入成员 (键代码标签, 键代码标签6)
加入成员 (键代码标签, 键代码标签7)
加入成员 (键代码标签, 键代码标签8)
加入成员 (键名标签, 键名标签1)
加入成员 (键名标签, 键名标签2)
加入成员 (键名标签, 键名标签3)
加入成员 (键名标签, 键名标签4)
加入成员 (键名标签, 键名标签5)
加入成员 (键名标签, 键名标签6)
加入成员 (键名标签, 键名标签7)
加入成员 (键名标签, 键名标签8)

子程序名	返回值类型	公开	备 注
响应监视事件
参数名	类 型	参考	可空	数组	备 注
功能键	整数型
键代码	整数型
按键状态	整数型

变量名	类 型	静态	数组	备 注
i	整数型
ii	整数型
iii	整数型

计次循环首 (8, i)
如果 (键代码标签 [i].标题 ＝ “”)
如果真 (按键状态 ＝ 2)
键代码标签 [i].标题 ＝ 到文本 (键代码)
键名标签 [i].标题 ＝ 键盘_键代码取键名 (键代码)
跳出循环 ()



计次循环尾 ()
如果 (键代码标签8.标题 ≠ “”)
如果真 (按键状态 ＝ 2)
计次循环首 (7, i)
ii ＝ 9 － 1
iii ＝ ii － 1
键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题
键名标签 [ii].标题 ＝ 键名标签 [iii].标题
计次循环尾 ()
键代码标签1.标题 ＝ 到文本 (键代码)
键名标签1.标题 ＝ 键盘_键代码取键名 (键代码)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

窗口_监视热键_卸载 ()

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 窗口_监视热键_zc (&响应监视事件)<br /> 加入成员 (键代码标签, 键代码标签1)<br /> 加入成员 (键代码标签, 键代码标签2)<br /> 加入成员 (键代码标签, 键代码标签3)<br /> 加入成员 (键代码标签, 键代码标签4)<br /> 加入成员 (键代码标签, 键代码标签5)<br /> 加入成员 (键代码标签, 键代码标签6)<br /> 加入成员 (键代码标签, 键代码标签7)<br /> 加入成员 (键代码标签, 键代码标签8)<br /> 加入成员 (键名标签, 键名标签1)<br /> 加入成员 (键名标签, 键名标签2)<br /> 加入成员 (键名标签, 键名标签3)<br /> 加入成员 (键名标签, 键名标签4)<br /> 加入成员 (键名标签, 键名标签5)<br /> 加入成员 (键名标签, 键名标签6)<br /> 加入成员 (键名标签, 键名标签7)<br /> 加入成员 (键名标签, 键名标签8)<br /> <br /> .子程序 响应监视事件<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 iii, 整数型<br /> <br /> .计次循环首 (8, i)<br />     .如果 (键代码标签 <i>.标题 ＝ “”)<br />         .如果真 (按键状态 ＝ 2)<br />             键代码标签 <i>.标题 ＝ 到文本 (键代码)<br />             键名标签 <i>.标题 ＝ 键盘_键代码取键名 (键代码)<br />         .如果真结束<br />         跳出循环 ()<br />     .否则<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .如果 (键代码标签8.标题 ≠ “”)<br />     .如果真 (按键状态 ＝ 2)<br />         .计次循环首 (7, i)<br />             ii ＝ 9 － 1<br />             iii ＝ ii － 1<br />             键代码标签 [ii].标题 ＝ 键代码标签 [iii].标题<br />             键名标签 [ii].标题 ＝ 键名标签 [iii].标题<br />         .计次循环尾 ()<br />         键代码标签1.标题 ＝ 到文本 (键代码)<br />         键名标签1.标题 ＝ 键盘_键代码取键名 (键代码)<br />     .如果真结束<br /> <br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 窗口_监视热键_卸载 ()

纯情小黄牛

计次循环首（）