[填空題] 在窗體上有一個(gè)過(guò)程函數(shù),然后編寫(xiě)如下事件程序,該過(guò)程的功能是用選擇交換法將10個(gè)數(shù)排成升序,請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句?! ub SORT( )
2021-07-20
[填空題] 在窗體上有一個(gè)過(guò)程函數(shù),然后編寫(xiě)如下事件程序,該過(guò)程的功能是用選擇交換法將10個(gè)數(shù)排成升序,請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句?! ub SORT( ) Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ," ",0)) Next i For i= 【10】 k=i For j= 【11】 If a(k)>a(j)Then 【12】 If k< >i Then b=a(k) a(k)=a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub
正確答案:(9)【10】1 To 9
參考解析:【11】I+1 To 10 【12】k=j 解析:由于是10個(gè)數(shù)所以1從1到9,j從i到10形成兩次循環(huán),如果是100個(gè)的話,那就是1從1到99,j從1到100形成兩次循環(huán);由于a(k)〉a(j)所以要交換,以便排序。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。