小奕同學(xué)基于排序算法設(shè)計(jì)了一個(gè)數(shù)字矩陣排序的程序。程序界面如圖所示,在文本框中輸入矩陣大小,點(diǎn)擊“生成”按鈕 Command1,在左側(cè)列表框 List1 中輸出一個(gè)長(zhǎng)寬均為指定大小的隨機(jī) 整數(shù)矩陣,隨機(jī)整數(shù)范圍為【1,99】。點(diǎn)擊“排序”按鈕 Command2,結(jié)果輸出在右側(cè)列表框 List2 中,奇數(shù)行從左到右依次遞增,偶數(shù)行從右至左依次遞增,且保持輸出矩陣的長(zhǎng)寬不變。
(1)實(shí)現(xiàn)上述功能的 VB 程序如下,顯示數(shù)據(jù)用的additem 是一種 CC(單選,填字母:A.屬性名
/B.事件名/C.方法名/D.過程名)。
(2)請(qǐng)?jiān)跈M線處填入合適的代碼。
(3)程序中加框處代碼有錯(cuò),請(qǐng)改正。Dim a(1 To 100)As Integer
Dim n As Integer
Function dq(s As String,L As Integer) As String'自定義對(duì)齊函數(shù)
Rem 在輸入的字符串 s 前加若干空格,輸出長(zhǎng)度為 L 的字符串,代碼略 End Function
PrivateSub Command1_Click ( ?。?生成數(shù)字矩陣
‘隨機(jī)生成 n^2 個(gè)數(shù)字,存儲(chǔ)在數(shù)組 a 中,代碼略
‘以一行 n 個(gè),共 n 行的格式顯示在 List1 中,代碼略
End Sub
Private Sub Command2_Click ( ?。?數(shù)字矩陣排序
Dim i As Integer,k As Integer,j As Integer,s As String
Dim f As Boolean
List2.Clear f=True
For i=1 To n^2 Step n s=″″
For j=i To
k=n^2
Do While①
If a(k)<a(k-1)Then
t=a(k):a(k)=a(k-1):a(k-1)=t
End If
k=k-1
Loop
If f=True Then
s=s+″″+dq(Str(a(j)),2)Else
s=″″+dq(Str(a(j)),2)+s
End If Next j List2.AddItem s
② Next i
End Sub
【考點(diǎn)】應(yīng)用程序的試運(yùn)行和保存.
【答案】C
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.5
相似題
-
1.有如下VB程序段:
執(zhí)行該程序段后,變量c的值是( ?。?/h2>發(fā)布:2024/12/16 5:0:1組卷:1引用:2難度:0.3 -
2.小明用python語(yǔ)言中對(duì)大小為100*100像素的圖像“上.jpg”(如圖所示)進(jìn)行簡(jiǎn)單處理,部分代碼如圖:
程序執(zhí)行后的圖像效果是( ?。?/h2>發(fā)布:2024/12/20 9:30:2組卷:3引用:5難度:0.4 -
3.由大寫字母組成的長(zhǎng)度相同的兩個(gè)字符串s1和s2,檢測(cè)各字母的數(shù)量,如“ABDAC”與“AABCD”所含字母數(shù)量一樣,與“AABBC”所含字母數(shù)量不一樣。實(shí)現(xiàn)該功能的VB程序段如下:
填空處的代碼可以由以下部分組成:
①Text2.Text ②val(Text2.Text) ③b(a)=b(a)+1 ④b(a)=b(a)-1 ⑤b(i)<>0⑥b(i)=0
代碼順序正確的是( ?。?/h2>發(fā)布:2024/12/16 9:30:1組卷:3引用:3難度:0.4
把好題分享給你的好友吧~~