排序后比较

cls
DATA 2,11,13,14,15,16,17,21,22,23,24,25,26,30,32,33,0,0
DATA 1,2,11,13,14,15,16,17,25,26,28,29,30,31,32,33,0,0
DATA 1,2,15,16,17,19,20,21,22,23,24,25,26,31,32,33,0,0
DATA 1,2,15,16,17,19,20,21,22,23,24,25,26,31,32,33,0,0
DATA 1,2,15,16,17,21,22,23,24,25,26,28,29,30,31,32,33,0
DATA 2,11,13,14,15,16,17,21,22,23,24,25,26,30,32,33,0,0
DATA 1,2,11,13,14,15,16,17,25,26,28,29,30,31,32,33,0,0
DATA 1,2,3,15,16,17,19,20,21,22,23,24,25,26,31,32,33,0
dim a1(18),a2(18),a3(18),a4(18),a5(18),a6(18),a7(18),a8(18)
for i = 1 to 8
  read a1(i)
next i
for i = 1 to 8
  read a2(i)
next i
for i = 1 to 8
  read a3(i)
next i
for i = 1 to 8
  read a4(i)
next i
for i = 1 to 8
  read a5(i)
next i
for i = 1 to 8
  read a6(i)
next i
for i = 1 to 8
  read a7(i)
next i
for i = 1 to 8
  read a8(i)
next i
for i =1 to 17
  for j = i+1 to 18
    if a1(i)>a1(j) then swap a1(i),a1(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a2(i)>a2(j) then swap a2(i),a2(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a3(i)>a3(j) then swap a3(i),a3(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a4(i)>a4(j) then swap a4(i),a4(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a5(i)>a5(j) then swap a5(i),a5(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a6(i)>a6(j) then swap a6(i),a6(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a7(i)>a7(j) then swap a7(i),a7(j)
next j,i

for i =1 to 17
  for j = i+1 to 18
    if a8(i)>a8(j) then swap a8(i),a8(j)
next j,i
for i = 1 to 18
  for j = 1 to 17
    for k = i+1 to 18
      if a(j)<>a(k) then a(j)=0:a(k)=0
next k,j,i
end
即兴写的，不知道行不行，请指教