运行记录号    检验结果
1    已有重复，作废
2    已有重复，作废
3    已有重复，作废
4    已有重复，作废
5    已有重复，作废
6    已有重复，作废
7    已有重复，作废
8    已有重复，作废
9    已有重复，作废
10    已有重复，作废
11    已有重复，作废
12    无重复
13    无重复
14    无重复
15    无重复
16    无重复
17    无重复

哦对不起，我的程序是检测每一个运行记录号块中的前11行的，所以有好多运行记录号的块中是无重复记录的，先生假如不把原表放入内存，那要怎样修改我的代码，谢谢先生

哦先生对不起，我的程序是检测每一个运行记录号块中的前11行的，所以有好多运行记录号的块中是无重复记录的，先生假如不把原表放入内存，那要怎样修改我的代码，谢谢先生

哦，先生在原表中的运行记录号1块中要检测的这样11行8列
1    25    49    73    97    121    13    37
13    37    61    85    109    1    25    49
25    49    73    97    121    13    37    61
37    61    85    109    1    25    49    73
49    73    97    121    13    37    61    85
61    85    109    1    25    49    73    97
73    97    121    13    37    61    85    109
85    109    1    25    49    73    97    121
97    121    13    37    61    85    109    1
109    1    25    49    73    97    121    13
121    13    37    61    85    109    1    25

其余各记录号的块都是检测这样位置的11行8列，这在我的代码中可以体现，谢谢先生

哦，先生临时表如何操作，请在我的附件代码中帮我修改一下，谢谢先生

每包括“运行记录号”的一“块”是共有14行，但我想检测的是：除了运行记录号的一行和每块中最后二行，即只要统计每块中除了以上三行剩下的“11行”，这在我的代码中可以体现：
FOR i = (P-1)*14+2 TO (P-1)*14+12  &&将二维表格数据导入一维数组

先生您好,一大早又打扰您了,我的原表和程序都在15楼的"请教先生.zip"中了,谢谢先生

先生您好，首先感谢您的代码，可行了，诚挚的感谢。但我在拜读时有一行我搞不懂：
 DIMENSION a原表[88]  这一行代码作何用处我看不懂，请指教，谢谢

哦，是定义一个一维的88个内存变量是吗

谢谢先生，诚挚的感谢