現(xiàn)要編寫一個程序,對每個班級的同學(xué)生成考試座位號,規(guī)則如下:先按成績從高到低排序,如果成績相同,學(xué)號在前的學(xué)生座位號在前,最后輸出每個同學(xué)的座 位號。小王和小李采用不同的方法實現(xiàn)了上述算法。 請仔細(xì)比較兩位同學(xué)的代碼的不同之處,并完成相關(guān)代碼的填空。
Dim xm(1 To n) As String,xh(1 To n) As String
Dim cj(1 to n)As Integer
Private Sub form_load ( ?。?br />‘讀取相關(guān)數(shù)據(jù)表,把姓名、學(xué)號、成績分別存儲到數(shù)組 xm、xh、cj 中,并在 List1 中顯示,代碼略 End Sub
Private Sub Com1_Click ( ?。湫⊥蹙帉懙拇a部分
Dim wz(1 To n) As Integer
For i=1 To n-1 wz(i)=i
For j=n To i+1 Step-1
If (1)Then
t=cj(j):cj(j)=cj(j-1):cj(j-1)=t t=xh(j):xh(j)=xh(j-1):xh(j-1)=t
End If
Next j
Next i
(2) For i=1 To n-1
For j=n To i+1 Step-1
If(3)Then
t=cj(j):cj(j)=cj(j-1):cj(j-1)=t t=xh(j):xh(j)=xh(j-1):xh(j-1)=t t=wz(j):wz(j)=wz(j-1):wz(j-1)=t
End If
Next j
Next i
List2.Clear
List2.AddItem″學(xué)號 姓名 成績 座位號″For i=1 To n
List2.AddItem xh(i)+″″+xm(i)+″″+Str(cj(i))+““+Str(wz(i))
Next i
End Sub
Private Sub Com2_Click ( ?。湫±罹帉懙拇a部分
Dim wz(1 To n) As Integer,t(1 To n) As Integer
For i=1 To n t(i)=i
Next i
For i=1 To n
For j=n To i+1 Step-1
If(4)Then
temp=t(j):t(j)=t(j-1):t(j-1)=temp
End If
Next j(5)Next i
List2.Clear
List2.AddItem″學(xué)號 姓名 成績 座位號″For i=1 To n
List2.AddItem xh(i)+″″+xm(i)+″″+Str(cj(i))+″″+Str(wz(i))
Next i
End Sub
【考點】冒泡排序算法及其實現(xiàn).
【答案】見試題解答內(nèi)容
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:5引用:1難度:0.3
相似題
-
1.有如下 Python 程序段:
運行后列表中的值可能是( )發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3 -
2.用VB編寫的函數(shù)bubble_sort是一個用冒泡方法實現(xiàn)排序的函數(shù),其調(diào)用時需要三個參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時為升序,否則為降序;整數(shù)型數(shù)組a
比如有一個整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
a
該函數(shù)VB代碼如下:
Function bubble_sort(sx As Boolean,a
Dim i,j,t As Integer
For i=1 To n-1
For j=
If
If a(j)<a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
Else
If a(j)>a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
bubble_sort=a
End Function
請將代碼補(bǔ)充完整:
①
②發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3 -
3.用選擇排序法對一組數(shù)據(jù)進(jìn)行升序排序,第一趟排序結(jié)束后的順序為2、6、9、3、7,則原始數(shù)據(jù)順序不可能的是( ?。?/h2>
發(fā)布:2024/12/18 23:0:1組卷:10引用:1難度:0.5
把好題分享給你的好友吧~~