程序代码：

CREATE CURSOR 测试表 (项目1 Y)
INSERT INTO 测试表 VALUES (1)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (2)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (3)
INSERT INTO 测试表 VALUES (7)
INSERT INTO 测试表 VALUES (8)
INSERT INTO 测试表 VALUES (9)
INSERT INTO 测试表 VALUES (10)
INSERT INTO 测试表 VALUES (11)
INSERT INTO 测试表 VALUES (12)
INSERT INTO 测试表 VALUES (13)
INSERT INTO 测试表 VALUES (14)
INSERT INTO 测试表 VALUES (15)

程序代码：

ln重复评=0
For j=15 To 1 Step -1
    Count For 评委9=j To ln重复数
    If ln重复数>1
        ln重复评=ln重复评+(ln重复数-1)
    ELSE
        ln重复评=ln重复评
    Endif
Endfor
?ln重复评