好费力气,花一个小时,总算弄出来了,你可以复制代码试下,保证十分正确,前两个是进度
CLS
DIM a(160)
g = 1: f = 2: e = 3: d = 4: c = 5: b = 6
FOR i = 2 TO 160
FOR o = 1 TO i
p = i / o
IF p - INT(p) = 0 THEN num = num + 1
NEXT
IF num < 3 THEN j = j + 1: a(j) = i
num = 0
NEXT
FOR n1 = 1 TO j
f = n1 + 1
FOR n2 = f TO j
LOCATE 1, 1
PRINT n1, n2
e = n2 + 1
FOR n3 = e TO j
d = n3 + 1
FOR n4 = d TO j
c = n4 + 1
FOR n5 = c TO j
b = n5 + 1
FOR n6 = b TO j
k1 = a(n2) - a(n1)
k2 = a(n3) - a(n2)
k3 = a(n4) - a(n3)
k4 = a(n5) - a(n4)
k5 = a(n6) - a(n5)
IF a(n1) <> a(n2) AND k1 = k2 AND k2 = k3 AND k3 = k4 AND k4 = k5 THEN
PRINT a(n1); a(n2); a(n3); a(n4); a(n5); a(n6)
END IF
NEXT
NEXT
NEXT
NEXT
NEXT
NEXT
END

虽然繁锁些吧，不过LZ你要给俺加分啊，这么久还不上线........等待ing.....呵

提个建议,编程的时候一定要注意缩进,象你这种格式只要写稍大一点和程序就乱套了.

呵,谢了