在PB中对数组采用冒泡排序法为什么一直无法成功【附有代码】

[ToddSong]

for m=1 to l - 1
num1=integer(out_number[m]);
for n=m+1 to l - m - 1
num2=integer(out_number[n]);
if(num1<num2) then
tmp[1]=out_number[m];out_number[m]=out_number[n];out_number[n]=tmp[1];
tmp[2]=class[m];class[m]=class[n];class[n]=tmp[2];
tmp[3]=code[m];code[m]=code[n];code[n]=tmp[3];
tmp[4]=namename[m];namename[m]=namename[n];namename[n]=tmp[4];
end if
next
next

[lllyyymmm]

你上面的程序没有错,至于为什么不行,可能要调试一下结果,你可以试几个断点

[LamarChen]

for m=1 to l - 1 
   num1=integer(out_number[m]); 
   for n=m+1 to l - m - 1 
      num2=integer(out_number[n]); 
      if(num1 < num2) then 
         tmp[1]=out_number[m];out_number[m]=out_number[n];out_number[n]=tmp[1]; 
         tmp[2]=class[m];class[m]=class[n];class[n]=tmp[2]; 
         tmp[3]=code[m];code[m]=code[n];code[n]=tmp[3]; 
         tmp[4]=namename[m];namename[m]=namename[n];namename[n]=tmp[4]; 
      end if 
   next 
next

[LamarChen]

建议把代码编排一下 再试试！
因为PB有时候也很糊涂的！！

[LamarChen]

看出来了
应该是 for n=m+1 to l - 1
你写成了 for n=m+1 to l - m - 1

for m=1 to l - 1 
   num1=integer(out_number[m]); 
   for n=m+1 to l  - 1    ////
      num2=integer(out_number[n]); 
      if(num1 < num2) then 
         tmp[1]=out_number[m];out_number[m]=out_number[n];out_number[n]=tmp[1]; 
         tmp[2]=class[m];class[m]=class[n];class[n]=tmp[2]; 
         tmp[3]=code[m];code[m]=code[n];code[n]=tmp[3]; 
         tmp[4]=namename[m];namename[m]=namename[n];namename[n]=tmp[4]; 
      end if 
   next 
next

[WorldMobile]

楼主的结贴率也太低了吧？