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