反馈一个易语言助手收录的词库 子程序有逻辑错误

不过℡

自定义子程序 验证***

  

子程序名	返回值类型	公开	备 注
验证***	整数型		返回：0正确，1不正确，2不足18位号码
参数名	类 型	参考	可空	数组	备 注
***	文本型

变量名	类 型	静态	数组	备 注
返回1	整数型
身	文本型

如果真 (取文本长度 (***) ≠ 18)
返回 (2)
身 ＝ 到文本 (到整数 (取文本中间 (***, 1, 1)) × 7 ＋ 到整数 (取文本中间 (***, 2, 1)) × 9 ＋ 到整数 (取文本中间 (***, 3, 1)) × 10 ＋ 到整数 (取文本中间 (***, 4, 1)) × 5 ＋ 到整数 (取文本中间 (***, 5, 1)) × 8 ＋ 到整数 (取文本中间 (***, 6, 1)) × 4 ＋ 到整数 (取文本中间 (***, 7, 1)) × 2 ＋ 到整数 (取文本中间 (***, 8, 1)) × 1 ＋ 到整数 (取文本中间 (***, 9, 1)) × 6 ＋ 到整数 (取文本中间 (***, 10, 1)) × 3 ＋ 到整数 (取文本中间 (***, 11, 1)) × 7 ＋ 到整数 (取文本中间 (***, 12, 1)) × 9 ＋ 到整数 (取文本中间 (***, 13, 1)) × 10 ＋ 到整数 (取文本中间 (***, 14, 1)) × 5 ＋ 到整数 (取文本中间 (***, 15, 1)) × 8 ＋ 到整数 (取文本中间 (***, 16, 1)) × 4 ＋ 到整数 (取文本中间 (***, 17, 1)) × 2)
身 ＝ 到文本 (到整数 (身) ％ 11)
如果真 (身 ＝ “0”)
身 ＝ “1”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “1”)
身 ＝ “0”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “2”)
身 ＝ “X”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “3”)
身 ＝ “9”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “4”)
身 ＝ “8”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “5”)
身 ＝ “7”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “6”)
身 ＝ “6”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “7”)
身 ＝ “5”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “8”)
身 ＝ “4”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “9”)
身 ＝ “3”
返回1 ＝ 证 (***, 身)

如果真 (身 ＝ “10”)
身 ＝ “2”
返回1 ＝ 证 (***, 身)

返回 (返回1)

子程序名	返回值类型	公开	备 注
证	整数型
参数名	类 型	参考	可空	数组	备 注
***	文本型
身	文本型

如果 (身 ≠ 取文本中间 (***, 18, 1))
返回 (1)
返回 (0)

.版本 2<br /> <br /> .子程序 验证***, 整数型, 公开, 返回：0正确，1不正确，2不足18位号码<br /> .参数 ***, 文本型<br /> .局部变量 返回1, 整数型<br /> .局部变量 身, 文本型<br /> <br /> .如果真 (取文本长度 (***) ≠ 18)<br />     返回 (2)<br /> .如果真结束<br /> 身 ＝ 到文本 (到整数 (取文本中间 (***, 1, 1)) × 7 ＋ 到整数 (取文本中间 (***, 2, 1)) × 9 ＋ 到整数 (取文本中间 (***, 3, 1)) × 10 ＋ 到整数 (取文本中间 (***, 4, 1)) × 5 ＋ 到整数 (取文本中间 (***, 5, 1)) × 8 ＋ 到整数 (取文本中间 (***, 6, 1)) × 4 ＋ 到整数 (取文本中间 (***, 7, 1)) × 2 ＋ 到整数 (取文本中间 (***, 8, 1)) × 1 ＋ 到整数 (取文本中间 (***, 9, 1)) × 6 ＋ 到整数 (取文本中间 (***, 10, 1)) × 3 ＋ 到整数 (取文本中间 (***, 11, 1)) × 7 ＋ 到整数 (取文本中间 (***, 12, 1)) × 9 ＋ 到整数 (取文本中间 (***, 13, 1)) × 10 ＋ 到整数 (取文本中间 (***, 14, 1)) × 5 ＋ 到整数 (取文本中间 (***, 15, 1)) × 8 ＋ 到整数 (取文本中间 (***, 16, 1)) × 4 ＋ 到整数 (取文本中间 (***, 17, 1)) × 2)<br /> 身 ＝ 到文本 (到整数 (身) ％ 11)<br /> .如果真 (身 ＝ “0”)<br />     身 ＝ “1”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “1”)<br />     身 ＝ “0”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “2”)<br />     身 ＝ “X”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “3”)<br />     身 ＝ “9”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “4”)<br />     身 ＝ “8”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “5”)<br />     身 ＝ “7”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “6”)<br />     身 ＝ “6”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “7”)<br />     身 ＝ “5”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “8”)<br />     身 ＝ “4”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “9”)<br />     身 ＝ “3”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> .如果真 (身 ＝ “10”)<br />     身 ＝ “2”<br />     返回1 ＝ 证 (***, 身)<br /> .如果真结束<br /> <br /> 返回 (返回1)<br /> <br /> .子程序 证, 整数型<br /> .参数 ***, 文本型<br /> .参数 身, 文本型<br /> <br /> .如果 (身 ≠ 取文本中间 (***, 18, 1))<br />     返回 (1)<br /> .否则<br />     返回 (0)<br /> .如果结束

不该使用如果真，当***最后一位被算出来之后，比对后该直接返回结果，使用如果真的话在每一个如果真内部添加 返回（返回1） 或者全部转换为 判断

比如***513021195711065669  ，这是一个正确的***，但是这个子程序因为算出来“身=3”，所以直接赋值了对应的“身=9”，判断后返回***正确，比对之后因为是如果真，接下来的如果真都再次判断。又比对了一次“身=9”，这时候会直接赋值了对应的“身=3”，再判断就出错了


希望官方纠正一下

chenyucheng

可能子程序本身就是错误的。因为三个星号（乘号）不能连在一起

chenyucheng

论这篇帖子的含星号量有多少

不过℡

项目部004 发表于 2022-5-9 10:21
可以登录上去直接修改，欢迎参与改进！

http://e.125.la/fun-277.html

已提交修改。请审核

项目部004

可以登录上去直接修改，欢迎参与改进！

http://e.125.la/fun-277.html