for(I = 1; i < 32; i++)
    a[I] = I;
for(I = 1; i < 8; i++)
{  
    J = Random(32-I) + 1;
    b[i] = a[j];
    a[J] = a[32 - I];
} 我想应该不会的，我在delphi上的演示，生成的第一个数都是31？？

生成的是的数是相同的是因为生成是伪随机数，想生成真的得用种子srand().好像是这样的