以下是引用吹水佬在2015-8-29 20:54:03的发言：

粗粗看了一下，对照测试了一下。
B B B B B B B B B B B B B B B B B B B B B B B B B B B
B B P B B P B B P B B P B B P B B P B B P B B P B B P
B P B B P B B P B B P B B P B B P B B P B B P B B P B
B P P B P P B P P B P P B P P B P P B P P B P P B P P
P B B P B B P B B P B B P B B P B B P B B P B B P B B
P B P P B P P B P P B P P B P P B P P B P P B P P B P
P P B P P B P P B P P B P P B P P B P P B P P B P P B
P P P P P P P P P P P P P P P P P P P P P P P P P P P

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...         0
0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 ...  19173961
0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 ...  38347922
0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 ...  57521883
1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 1 0 0 ...  76695844
1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 ...  95869805
1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 1 1 0 ... 115043766
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ... 134217727

先将提供的BP表（27位）转换成二进制和10进制数值，作测试对照参考。
只显示结果：

CLEAR
SET TALK OFF
CREATE CURSOR bpb (bpn I, bp1 I, bp2 I, bpi I)
INSERT INTO bpb VALUES (        0, 0, 0, 1)
INSERT INTO bpb VALUES ( 19173961, 0, 0, 1)
INSERT INTO bpb VALUES ( 38347922, 0, 0, 1)
INSERT INTO bpb VALUES ( 57521883, 0, 0, 1)
INSERT INTO bpb VALUES ( 76695844, 0, 0, 1)
INSERT INTO bpb VALUES ( 95869805, 0, 0, 1)
INSERT INTO bpb VALUES (115043766, 0, 0, 1)
INSERT INTO bpb VALUES (134217727, 0, 0, 1)

nBits = 27
nBPk = 0
n位数 = 3
DO WHILE .T.
    nRet = MESSAGEBOX("P...是"+0h0D+"B...否", 3+32+512, "提示")
    IF nRet == 2
        EXIT
    ENDIF
    nBP = IIF(nRet == 6, 1, 0)
    nBPk = nBPk + 1
    nBit = MOD(nBPk, n位数)
    nBit = IIF(nBit == 0, n位数, nBit)

    CLEAR
    建BP表(nBits)
    ?
    ? " nBP="+IIF(nBP==0,"B","P"), " nBPk="+TRANSFORM(nBPk), " nBit="+TRANSFORM(nBit)
    ?
    ? " BP       BPi        BP2       BPi+1"
    nB = 0
    nP = 0
    SELECT bpb
    SCAN
        REPLACE bpb.bp1 WITH 取bp(bpb.bpn, nBit, nBits),;
                bpb.bp2 WITH 取bp(bpb.bpn, nBPk+1, nBits)
        ? " " + IIF(bpb.bp1==0, "B", IIF(bpb.bp1==1, "P", "-"))
        ?? bpb.bpi
        ?? "        "+IIF(bpb.bp2==0, "B", IIF(bpb.bp2==1, "P", "-"))
        ?? bpb.bpi + IIF(bpb.bp1 == nBP, -1, 1)
        REPLACE bpb.bpi WITH bpb.bpi + IIF(bpb.bp1 == nBP, -1, 1)
        nB = nB + IIF(bpb.bp2 == 0, bpb.bpi, 0)
        nP = nP + IIF(bpb.bp2 == 1, bpb.bpi, 0)
    ENDSCAN
    ?
    ? " B="+TRANSFORM(nB), " P="+TRANSFORM(nP)
ENDDO
RETURN

FUNCTION 取bp(bpn, nBit, nBits)
    IF !BETWEEN(bpn, 0x00000000, 0xFFFFFFFF) OR !BETWEEN(nBit, 1, nBits)
        RETURN -1
    ENDIF
    RETURN BITRSHIFT(BITLSHIFT(bpn, 32 - nBits + nBit - 1), 31)
ENDFUNC

FUNCTION 建BP表(nBits)
    LOCAL i, nBP
    SELECT bpb
    SCAN
        ? bpb.bpn, "..."
        FOR i = 0 TO nBits-1
            nBP = BITRSHIFT(BITLSHIFT(bpb.bpn, 32 - nBits + i), 31)
            ?? " " + IIF(nBP==0, "B", "P")
        ENDFOR
    ENDSCAN
ENDFUNC

以下是引用吹水佬在2015-8-29 22:37:55的发言：

只是测试代码，没用的。
按你说的算法和对照提供的EXCEL，每选择一次B或P时，最终算出B和P的值。

以下是引用sdta在2015-8-29 22:03:11的发言：

没有基础，一切都是空谈。

以下是引用sdta在2015-8-30 00:31:47的发言：

不是已经有方法了吗

以下是引用吹水佬在2015-8-30 08:41:28的发言：

我的思路也是按你的意思去构想。

不同点是你需要设定一个BP表，我就不需要这个BP表，因目前只理解到如何统计每次选择B或P时统计B和P的数值。当时考虑过，只统计B和P的数值，是否可以不需要这个BP表。BP表至少要28*268435456个元素，对于VFP来说，规模不算小，不一定好处理，但比较直观且算法简单，直接读写表的字段就可以。

测试时采用一个计算表 bpb 来处理：
CREATE CURSOR bpb (bpn I, bp1 I, bp2 I, bpi I)
其中：
bpn 就是那个BP表每条记录转换成10进制的数值，如果是完整的如0，1，2，.....，bpn可不要，直接从记录号换算。
bp1 这个是每次选择B或P后，需确定用来做比对的BP记录（BP表中的那个字段的记录）。
bp2 这个是比对后的BP记录，用来统计B和P数值。
bpi 这个是存放上次比对计数结果和本次比对后的计数结果，也就是存放比对前后的计数结果。

在此将BP表转换成10进制数值来表示，把对表字段的读取变为对数值的位的读取，主要目的是想减少资源的占用，减少BP表装载时的耗费。但运用起来未必高效，它需要做数据转换操作。

如果对数据的位操作运算不了解，可能会感觉有点复杂。数据的位操作运算是计算机最基本的运算，最好弄懂它，它需要对二进制数有所认识。