nSum= Val(Substr(cID,1,1)) * 7 ;
        + Val(Substr(cID,2,1)) * 9 ;
        + Val(Substr(cID,3,1)) * 10 ;
        + Val(Substr(cID,4,1)) * 5 ;
        + Val(Substr(cID,5,1)) * 8 ;
        + Val(Substr(cID,6,1)) * 4 ;
        + Val(Substr(cID,7,1)) * 2 ;
        + Val(Substr(cID,8,1)) * 1 ;
        + Val(Substr(cID,9,1)) * 6 ;
        + Val(Substr(cID,10,1)) * 3 ;
        + Val(Substr(cID,11,1)) * 7 ;
        + Val(Substr(cID,12,1)) * 9 ;
        + Val(Substr(cID,13,1)) * 10 ;
        + Val(Substr(cID,14,1)) * 5 ;
        + Val(Substr(cID,15,1)) * 8 ;
        + Val(Substr(cID,16,1)) * 4 ;
        + Val(Substr(cID,17,1)) * 2
    *计算校验位
    check_number=Int((12-nSum % 11)%11)为什么要用12  ？
    If check_number=10
        check_number='X'
    Endif

设：
X = nSum % 11
X与校验码有个对应关系
　　 X: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2

check_number=Int((12-nSum % 11)%11)
即：
check_number=Int((12-X)%11)

收到的鲜花

• tlliqi 于 2014-09-23 16:33 送鲜花  10朵   附言：加分

有道理

　　   Y值： 0 1 2 3 4 5 6 7 8 9 10
　　校验码： 1 0 X 9 8 7 6 5 4 3 2

Y值+校验码的最大值为12

应该是这样理解吧

直接用nSum % 11也要求出对应的校验值，为何还要Int((12-nSum % 11)%11)不是多此一举？

自己研究出来才有成就感

是算法问题，也可以（nSum % 11）的结果作为索引号在校验码表（1 0 X 9 8 7 6 5 4 3 2）中检索结果。
如：
ALINES(a校验码, "1 0 X 9 8 7 6 5 4 3 2", " ")
X = nSum % 11
check_number = a校验码[X+1]

[ 本帖最后由 吹水佬 于 2014-9-24 10:17 编辑 ]

好象有点道理，但还是迁象，研究不出来所以然。

研究研究
给定一条算式：
Y = (K-X)%11
X与Y的变动对应关系：
X: 0  1  2  3  4  5  6  7  8  9 10
Y: 1  0 10  9  8  7  6  5  4  3  2
变换为代数式：
K = 11*商 + Y + X
商=0 时，K=1  或 K=12。K=1时X<=1,不合题意。只能有K=12
商=1 时，K=12 或 K=23
商=2 时，K=23 或 K=34
......
可见：
K有多个选择，最小是12

研究研究
给定一条算式：
Y = (K-X)%11
算式的得来？你是倒套出来的，不足说明成立的理由。