矩陣斜線排序是指按斜線方向從小到大實(shí)現(xiàn)排序，如5*5矩陣斜線排序效果如圖所示。
小明使用VB實(shí)現(xiàn)該排序，設(shè)計(jì)功能如下：隨機(jī)生成兩位正整數(shù)并顯示在List1中，單擊按鈕“Command1”后將排序完成的數(shù)據(jù)顯示在List2中。界面如圖所示。
請回答以下問題：
（1）更改窗體按鈕Command1顯示為“開始排序”，則需要設(shè)置它的BB屬性。（單選，填寫字母：A．Text/B．Caption/C．Name）
（2）請完善程序代碼。Constn=5'矩陣大小
Dima（1Ton*n）AsIntegerPrivateSubForm_Load （ ?。?br />'隨機(jī)生成n*n的矩陣數(shù)據(jù)，并依次保存在數(shù)組a（1）～a（n*n）中'以n*n矩陣形式在list1中顯示數(shù)據(jù)，代碼略
EndSub
PrivateSubCommand1_Click （ ?。?br />DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
DimstartposAsInteger,endposAsInteger,sAsString
Fori=2To2*n-2
Ifi＜=nThen
startpos=（i-1）*n+1
endpos=i
Else
startpos=①
endpos=（i-n+1）*n
EndIf
DoWhilestartpos＞endpos
②
j=startpos-n+1
DoWhilej＞=endpos
Ifa（j）＜a（k）Thenk=j
j=j-n+1
Loop
Ifk＜＞startposThen
t=a（k）：a（k）=a（startpos）：a（startpos）=t
EndIf
startpos=startpos-n+1
Loop
Nexti
Fori=1Ton
s=““
Forj=1Ton
s=s+③
Nextj
List2．AddItems
NextiEndSub
【考點(diǎn)】對象；應(yīng)用程序的試運(yùn)行和保存．
【答案】B
【解答】
【點(diǎn)評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：2引用：1難度：0.5
相似題
-
1．在Visual Basic中，語句TName.Caption=“2012倫敦”中的TName是（ ?。?/h2>
發(fā)布：2024/5/27 14:0:0組卷：7引用：6難度：0.7 -
2．對象是由一組表示對象狀態(tài)的數(shù)據(jù)和一組描述處理對象屬性的方法（行為）的代碼構(gòu)成；
（判斷對錯）發(fā)布：2024/5/27 14:0:0組卷：6引用：2難度：0.9 -
3．編號分別為1～n（n為偶數(shù)）的學(xué)生分成兩組進(jìn)行投籃比賽，奇數(shù)編號的為第一組，偶數(shù)編號的為第二組。對每個分組的成績按從高到低排序，先比較處于分組第1位的兩個隊(duì)員成績，成績高的得1分，低的扣1分，相等均不得分，再依次比較處于分組相同位置的隊(duì)員成績，最后得到每組得分。
如10名運(yùn)動員1號到10號的成績分別是“13，6，9，8，10，11，10，14，16，13”，從高到低排序后，第一組的成績依次是“16，13，10，10，9”，第二組的成績依次是“14，13，11，8，6”。第1位的成績分別是16和14，則第一組獲勝得1分，第二組扣1分，再比較兩個分組第2位的成績13和13，則兩組均不得分。依次處理，比較完剩余隊(duì)員的成績，可得第一組得分為2，第二組得分為-2。
編寫一個VB程序，實(shí)現(xiàn)如下功能：在文本框Text l中依次輸入成績（偶數(shù)個整數(shù)，用逗號分隔并以逗號結(jié)尾），單擊“確定”按鈕Command1后，在列表框Listl中顯示對陣編號、對陣成績及兩個分組的最后得分。程序運(yùn)行界面如圖所示。
（1）下列對象不具有Caption屬性的是（單選，填字母：A．Command1/B．Form1C．Text1/D．Labell）。
（2）實(shí)現(xiàn)上述功能的VB程序如圖，請?jiān)跈M線處填入合適代碼。
（3）程序代碼中的加框處代碼有誤，請改正。
發(fā)布：2024/6/27 10:35:59組卷：0引用：1難度：0.6
把好題分享給你的好友吧~~