最后一句g = INT(16 * RND) + 1
                 ^ 搞个16干吗，33一样可以啊~

蓝色是1-16选1，不知道吗？？？

已解决，程序如下
RANDOMIZE TIMER
10 a = INT(33 * RND) + 1
20 b = INT(33 * RND) + 1
30 if b=a then goto 20
40 c = INT(33 * RND) + 1
50 if c=a or c=b then goto 40
60 d = INT(33 * RND) + 1
70 if d=a or d=b or d=c then goto 60
80 e = INT(33 * RND) + 1
90 if e=a or e=b or e=c or e=d then goto 80
100 f = INT(33 * RND) + 1
110 if f=a or f=b or f=c or f=d or f=e then goto 100
120 g = INT(16 * RND) + 1
PRINT a; b; c; d; e; f; g
END

dim a(7)
dim b
dim c
rndomize timer
c=(-rnd)
for d=0 to 7 
for f=0 to 7 step 2
for g=0 to 7 step 3
for h=0 to 7 step 4
for j=0 to 7 step 5
for k=0 to 7 step 6
for l=7 to 0 step -1
b=fix(rnd*33)+1
a(d)=fix(rnd*33)+1
if a(d)=a(f) then a(d)=b
if a(d)=a(g) then a(d)=b
if a(d)=a(h) then a(d)=b
if a(d)=a(j) then a(d)=b
if a(d)=a(k) then a(k)=b
if a(d)=a(l) then a(l)=b
next
next
next
next
next
next
next