某校最近開設(shè)了10節(jié)不同內(nèi)容的選修課,課的編號(hào)為1~10。每位同學(xué)只能選報(bào)一門課。事先讓學(xué)生做過問卷調(diào)查并根據(jù)自己的興趣愛好填寫了選課報(bào)名志愿表(無重復(fù)),如某同學(xué)的報(bào)名志愿表為4,1,2,7,3,5,8,10,9,6,表示他最想選報(bào)的課的編號(hào)是4(第一志愿),其次為1(第二志愿),以此類推。學(xué)校根據(jù)每位學(xué)生的問卷調(diào)查得分及選課報(bào)名志愿表進(jìn)行了分班,每班30人。
分班方法:優(yōu)先滿足問卷得分最高同學(xué)的第一志愿,如果該同學(xué)第一志愿所報(bào)名人數(shù)超過30人,則嘗試滿足其第二志愿,以此類推,直至該同學(xué)選課成功。
編寫程序?qū)崿F(xiàn)選課分配功能并統(tǒng)計(jì)各志愿錄取率情況:單擊讀取按鈕Command1后,在列表框List1中顯示每位學(xué)生的相關(guān)信息。單擊統(tǒng)計(jì)按鈕Command2后,統(tǒng)計(jì)第X志愿錄取人數(shù)及錄取率的統(tǒng)計(jì)結(jié)果清單,顯示在列表框List2中。程序界面如圖a所示。實(shí)現(xiàn)上述功能的VB程序代碼如下,請(qǐng)回答下列問題:
(1)代碼“List2.AddItem”中的AddItem是CC(單選,填字母:A.屬性名/B.對(duì)象名/C.方法名/D.事件名)。
(2)在橫線處填入合適代碼。
【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn).
【答案】C
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/12/7 6:30:2組卷:16引用:2難度:0.2
相似題
-
1.有如下 Python 程序段:
運(yùn)行后列表中的值可能是( ?。?/h2>發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3 -
2.用VB編寫的函數(shù)bubble_sort是一個(gè)用冒泡方法實(shí)現(xiàn)排序的函數(shù),其調(diào)用時(shí)需要三個(gè)參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時(shí)為升序,否則為降序;整數(shù)型數(shù)組a
比如有一個(gè)整數(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
請(qǐng)將代碼補(bǔ)充完整:
①
②發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3 -
3.用選擇排序法對(duì)一組數(shù)據(jù)進(jìn)行升序排序,第一趟排序結(jié)束后的順序?yàn)?、6、9、3、7,則原始數(shù)據(jù)順序不可能的是( )
發(fā)布:2024/12/18 23:0:1組卷:10引用:1難度:0.5
把好題分享給你的好友吧~~