VB的冒泡法排序程式
冒泡法排序程式段:
sub form_chick()
dim a(1 to 10) as integer
print "要排序的數組為: "
for i=1 to 10
a(i)=inputbox("請輸入10個整數: "
print tab(i*6);a(i);
next i
print
for i=1 to 9
for j=1 to 10-i
if a(j)>a(j+1) then
temp=a(j)
a(j)=a(j+1)
a(j+1)=temp
end if
next j
next i
print "排序後的數組為:"
for i=1 to 10
print tab(i*6);a(i);
next i
end sub
C語言的冒泡法排序
for(i=0;i<9;i++) /*進行9次循環。*/
for(j=i+1;j<10;j++) /*循環比較剩餘的變數。*/
if(a[i]>a[j]) /*如果前面一個數比後面數大，交換兩個數的值。*/
{
temp=a[i];
a[i]=a[j];
a[j]=temp;
}
