[填空題] 下面的程序用冒泡法將數(shù)組a中的10個(gè)整數(shù)按升序排列,請(qǐng)?jiān)谌帉⒊绦蜓a(bǔ)充完整。 Option Base 1 Private Sub Command
[填空題] 下面的程序用冒泡法將數(shù)組a中的10個(gè)整數(shù)按升序排列,請(qǐng)?jiān)谌帉⒊绦蜓a(bǔ)充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=______
For j=______
If a(i)______a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
正確答案:a To 9 i+1 To 10 >=
參考解析:Option Base 1指示數(shù)組下標(biāo)從1開(kāi)始。冒泡排序?yàn)槭紫葘⒌谝粋€(gè)記錄的關(guān)鍵字與第二個(gè)記錄的關(guān)鍵字進(jìn)行比較,若逆序則交換,然后比較第二個(gè)與第三個(gè),依此類(lèi)推,直至第n-1個(gè)和第n個(gè)記錄的關(guān)鍵字進(jìn)行比較為止。上述過(guò)程為第一趟冒泡排序,使最大的關(guān)鍵字元素放到最后。依此類(lèi)推,進(jìn)行第2~n次冒泡排序。根據(jù)冒泡排序的原理,結(jié)合本題,構(gòu)成二重循環(huán),應(yīng)填a To 9和i+1 To 10,此時(shí)將判斷a(i)與a(j)的大小,根據(jù)題意,故填>=。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。