隨機生成n個大于等于1且小于等于n的不重復正整數(shù)，采用“數(shù)據(jù)塊交換”方式升序排序。數(shù)據(jù)塊交換方式如下：
在待處理的數(shù)據(jù)區(qū)間中，對相鄰且數(shù)據(jù)個數(shù)相等的數(shù)據(jù)塊進行處理。若數(shù)字i恰好在第i位置，則不做交換，否則按下列兩種情況處理。
情況A.待處理區(qū)間中，若數(shù)字i之前的數(shù)據(jù)個數(shù)小于等于其余數(shù)據(jù)個數(shù)，做一次交換可將數(shù)字i換到第i位置，如數(shù)字i=2時：
情況B.待處理區(qū)間中，若數(shù)字i之前的數(shù)據(jù)個數(shù)大于其余數(shù)據(jù)個數(shù)，操作如下：
◆奇數(shù)個數(shù)據(jù)：先將待處理區(qū)間中第1個數(shù)據(jù)排除，對其余數(shù)據(jù)整體做數(shù)據(jù)塊交換，再按情況A處理，如數(shù)字i=3時：
◆偶數(shù)個數(shù)據(jù)：先將待處理區(qū)間整體做數(shù)據(jù)塊交換，再按情況A處理，如數(shù)字i=4時：
（1）若數(shù)組a中數(shù)據(jù)為“4，5，1，2，3”，則第1次數(shù)據(jù)塊交換后數(shù)組a中數(shù)據(jù)依次為：1，2，4，5，31，2，4，5，3
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
ConstMaxn=30
Dima（1ToMaxn）AsInteger
Dimwz（1ToMaxn）AsInteger
'函數(shù)功能：數(shù)據(jù)塊[st1..edl]與后面數(shù)據(jù)塊交換（兩數(shù)據(jù)塊相鄰且個數(shù)相等）
FunctionkSwap（st1AsInteger,ed1AsInteger）AsString
DimiAsInteger,tAsInteger,n1AsInteger
nl=ed1-st1+1
Fori=①stl to edlstl to edl
t=a（i）：a（i）=a（i+n1）：a（i+nl）=t
t=wz（a（i））：wz（a（i））=wz（a（i+n1））：wz（a（i+nl））=t
Nexti
'將處理結果返回，代碼略.
EndFunction
PrivateSubCmdl_Click （ ?。?br />DimnAsInteger,numAsInteger,iAsInteger,sAsString
n=Val（Text1.Text）
'隨機生成n個不重復正整數(shù)保存到a（1）到a（n）中，并在List1中顯示，代碼略.
Fori=1Ton
wz（a（i））=i
Nexti
Fori=1Ton-1
Ifi＜＞wz（i）Then
num=②n-i+1n-i+1
Ifwz（i）-i＜=num-（wz（i）-i）Then'按情況A處理
s=kSwap（i,wz（i）-1）：List1.AddItems
E1se
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltens
Else
IfnumMod2=0Then
s=kSwap（i,i+num\2-1）：Listl.Addltems
Else
s=③kSwap（i+1，i+num\2）kSwap（i+1，i+num\2）：Listl.Addltems
EndIf
i=i-1'數(shù)字i交換到第i位置的處理尚未完成
EndIf
EndIf
Nexti
EndSub
【考點】應用程序的試運行和保存．
【答案】1，2，4，5，3；stl to edl；n-i+1；kSwap（i+1，i+num\2）
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：0引用：1難度：0.5
相似題
-
1．大部分社交軟件都有好友推薦的功能，當用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時，由系統(tǒng)向用戶 A 推薦用戶 B。
編寫 VB 程序，實現(xiàn)好友推薦功能。運行程序，列表框 Listl 中顯示用戶 id 及好友列表，在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕，在列表框List2 中顯示用戶之間的關系，在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖：
（1）根據(jù)如圖所示數(shù)據(jù)，若輸入用戶 id 為“3”，輸入閾值為“3”，則推薦好友為：
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3 -
2．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進行簡單處理，部分代碼如圖：
程序執(zhí)行后的圖像效果是（ ?。?/h2>發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4 -
3．某學校開展了藝術節(jié)活動，數(shù)組a中存儲了n個節(jié)目的編號和得分數(shù)據(jù)，數(shù)組存儲結構如圖所示：
小明使用選擇排序思想對上述n個節(jié)目按得分進行降序排序（得分相同的按編號升序排列），并依據(jù)得分插入各個節(jié)目的排名信息，處理后數(shù)組a的存儲結構如圖所示：
程序運行時，單擊命令按鈕Command1后讀取數(shù)據(jù)到數(shù)組a中并顯示在列表框List1中，單擊命令按鈕Command2后將節(jié)目按照上述規(guī)則進行排序，并將排名結果顯示在列表框List2中。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）已知窗體名稱為Forml,要使程序加載時，窗體標題自動顯示為“第15題程序”，則可在（單選，填字母：A.Form_Click（ ）/B.Form_Load（ ?。?C.Forml_Click （ ）/D.Forml_Load （ ?。┦录^程 中添加代碼：Forml.Caption=“第15題程序”。
（2）請在橫線處填入合適的代碼。
（3）加框處代碼有誤，請改正。
發(fā)布：2025/1/2 10:30:2組卷：0引用：1難度：0.3