試卷征集
加入會員
操作視頻

矩陣斜線排序是指按斜線方向從小到大實現(xiàn)排序,如5*5矩陣斜線排序效果如圖所示。

小明使用VB實現(xiàn)該排序,設計功能如下:隨機生成兩位正整數(shù)并顯示在List1中,單擊按鈕“Command1”后將排序完成的數(shù)據(jù)顯示在List2中。界面如圖所示。
請回答以下問題:
(1)更改窗體按鈕Command1顯示為“開始排序”,則需要設置它的
B
B
屬性。(單選,填寫字母:A.Text/B.Caption/C.Name)
(2)請完善程序代碼。Constn=5'矩陣大小
Dima(1Ton*n)AsIntegerPrivateSubForm_Load ( ?。?br />'隨機生成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

【答案】B
【解答】
【點評】
聲明:本試題解析著作權屬菁優(yōu)網所有,未經書面同意,不得復制發(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.編號分別為1~n(n為偶數(shù))的學生分成兩組進行投籃比賽,奇數(shù)編號的為第一組,偶數(shù)編號的為第二組。對每個分組的成績按從高到低排序,先比較處于分組第1位的兩個隊員成績,成績高的得1分,低的扣1分,相等均不得分,再依次比較處于分組相同位置的隊員成績,最后得到每組得分。
        如10名運動員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,則兩組均不得分。依次處理,比較完剩余隊員的成績,可得第一組得分為2,第二組得分為-2。
        編寫一個VB程序,實現(xiàn)如下功能:在文本框Text l中依次輸入成績(偶數(shù)個整數(shù),用逗號分隔并以逗號結尾),單擊“確定”按鈕Command1后,在列表框Listl中顯示對陣編號、對陣成績及兩個分組的最后得分。程序運行界面如圖所示。
    (1)下列對象不具有Caption屬性的是
     
    (單選,填字母:A.Command1/B.Form1C.Text1/D.Labell)。
    (2)實現(xiàn)上述功能的VB程序如圖,請在橫線處填入合適代碼。
    (3)程序代碼中的加框處代碼有誤,請改正。

    發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.6
  • 3.對象是由一組表示對象狀態(tài)的數(shù)據(jù)和一組描述處理對象屬性的方法(行為)的代碼構成;
     
    (判斷對錯)

    發(fā)布:2024/5/27 14:0:0組卷:6引用:2難度:0.9
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網 | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯(lián)系并提供證據(jù),本網將在三個工作日內改正