試卷征集
加入會員
操作視頻
現(xiàn)需要對某企業(yè)大型招聘活動面試成績進行排名,面試數(shù)據(jù)包含專業(yè)編號(整數(shù),順序編號)、專業(yè)名稱、姓名(字母編寫)和面試分。整理面試數(shù)據(jù)的要求是:先按專業(yè)編號從小到大排列,然后,同專業(yè)的面試者按面試成績從大到小排列(同分同名次)。按上述要求,編寫一個VB程序,功能如下:在列表Listi1中顯示整理前的數(shù)據(jù),單擊“整理”按鈕Command1,整理結(jié)果顯示在列表框List2中,程序運行界面如圖所示。
菁優(yōu)網(wǎng)
(1)n個元素兩兩比較大小確定其位次,需要比較的次數(shù)是
n(n-1)/2
n(n-1)/2

(2)請在橫線處填入合適的代碼。
Const n=200'報名人數(shù)
Const nz=10'專業(yè)數(shù)
Dim zybh(1 To n)As Integer,zyname(1 Ton)As String,sname(1 To n)As String,
zymark(1 To n)As Integer
Dim b(1 To nz)As Integer'存儲每個專業(yè)的人數(shù)
Dim c(1 To nz)As Integer
Dim d(1 To n)As Integer
Dim q(1 To n)As Integer
Private Sub Form_Load
( ?。?/div>
(  )

'本過程讀取專業(yè)編號、專業(yè)名稱、姓名和面試分的數(shù)據(jù)分別存儲在數(shù)組zybh,zyname,sname,zymark中,并在List1中顯示,代碼略
End Sub
Private Sub Command1_Click
(  )
( ?。?/div>
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0:q(i)=0
Next i
For i=1To n
k=zybh(i)
b(k)=b(k)+1
Next i
k=1
For i=1 To nz
c(i)=k
k=k+b(i)
k=k+b(i)

Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)=zybh(j)And zymark(i)<>zymark(j)Then
If②
zymark(i)>zymark(j)
zymark(i)>zymark(j)
Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While③
q(c(zybh(i)+d(i)+j))<>0
q(c(zybh(i)+d(i)+j))<>0
 
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.Addltem““& zybh(q(i)) &““& zyname(q(i)) &.““& sname(q(i)) &““& zymark(q(i)) &““& d(q(i)+1
Next i
End Sub
【答案】n(n-1)/2;( ?。?;(  );k=k+b(i);zymark(i)>zymark(j);q(c(zybh(i)+d(i)+j))<>0
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/4/20 14:35:0組卷:0引用:1難度:0.3
相似題
  • 1.某外賣平臺推出同城代購服務(wù),外賣騎手可接多個訂單,但是同一時間只能完成一項訂單。接單規(guī)則為:
    ?若騎手當(dāng)前沒有訂單任務(wù),則自動接收最先提交的訂單任務(wù);
    ?若騎手在當(dāng)前訂單完成前都沒有接到新的訂單,則輸出當(dāng)前訂單,并接收排在最前面的訂單任務(wù);
    ?若騎手當(dāng)前正在執(zhí)行訂單任務(wù),期間有用戶提交訂單,則訂單進入等候區(qū),并按照所需用時升序排列。
    訂單信息存儲在“dingdan.jye.ai”文件中,文件格式如圖a所示。文件按照下單時間升序存儲所有訂單信息,每一行數(shù)據(jù)存儲每個訂單的接收時間和完成訂單的所需用時,如(“D1,07:15:36,2400”表示:D1號訂單,于07:15:36下單,需要2400秒才能完成)。
    菁優(yōu)網(wǎng)?
    (1)如果某騎手一天內(nèi)接到的訂單如下表所示:
    訂單號 接收時間 所需用時(秒)
    D1 08:00:00 600
    D2 08:05:00 1500
    D3 08:30:00 1800
    D4 08:33:00 900
    D5 08:33:00 600
    騎手在完成所有訂單后,各個訂單的完成順序為:
     
    (訂單號之間用逗號隔開,如D1,D2,D3,D4,D5)。
    (2)定義如下convert
     
    函數(shù),函數(shù)功能是轉(zhuǎn)換時間格式,如將3663秒轉(zhuǎn)換為“01:01:03”,程序劃線處應(yīng)填入的語句為
     
    。
    菁優(yōu)網(wǎng)
    (3)運行如下程序,從文件中讀取訂單信息,經(jīng)過加工處理后,按照騎手的完成順序依次輸出各個訂單的名稱以及該訂單的完成時間,運行結(jié)果如第15題圖b所示。請在劃線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    (4)程序加框處有誤,請改正。?
    發(fā)布:2024/10/9 0:0:2組卷:1引用:1難度:0.5
  • 2.某醫(yī)院的團體體檢流程如下:
    編號登記:為n位體檢者設(shè)置體檢編號1~n。
    體檢呼叫:體檢項目處空閑時呼叫下一個體檢者(編號小的優(yōu)先),若多個項目同時呼叫,體檢者到優(yōu)先級小的項目處體檢。僅考慮常規(guī)體檢項目,各個項目的優(yōu)先級及體檢時間如表所示:
    項目名稱 B超 心電圖 抽血 尿常規(guī) C14檢測 胸透 一般常規(guī)(身高體重血壓)
    優(yōu)先級 0 1 2 3 4 5 6
    時間(min) 12 5 2 2 2 2 1
    前去體檢:各個體檢項目之間相互獨立,互不影響;病人排隊體檢和體檢完畢到下一科室之間沒有時間延遲。
    (1)某日下午,僅1個團隊4人(分別用編號1,2,3,4表示)參加體檢,開始體檢后第5分鐘,4在檢查
     
    (填寫項目名稱)項目。
    (2)定義如下lst(n)函數(shù),生成n人體檢隊列。若體檢人數(shù)為4人,則que生成結(jié)果如表所示。
    隊列索引號 體檢編號 已檢測項目
    0 1 []
    1 2 []
    2 3 []
    3 4 []?
    菁優(yōu)網(wǎng)?
    若加框處語句改為:
    菁優(yōu)網(wǎng)
    則執(zhí)行語句lst(4),que的生成結(jié)果
     
    (選填:是/否)相同。
    (3)用Python程序模擬一個10人團隊參加體檢的流程。程序運行后,體檢完成順序如圖所示:
    菁優(yōu)網(wǎng)?
    發(fā)布:2024/10/4 0:0:1組卷:1引用:3難度:0.3
  • 3.小明統(tǒng)計本校各班同學(xué)技術(shù)學(xué)考模擬測試的得分情況,數(shù)據(jù)存儲在“高二技術(shù)學(xué)考.csv”文件中,如圖a所示。小明通過Python編程處理數(shù)據(jù),計算了每位同學(xué)的技術(shù)總分,并篩選技術(shù)總分大于0分的同學(xué)的相關(guān)信息;以此為依據(jù),求出了各班的技術(shù)總分均分,并以此為依據(jù)降序排序后,將結(jié)果以垂直柱形圖的形式呈現(xiàn)出來,如圖b所示。
    菁優(yōu)網(wǎng)?
    (1)數(shù)據(jù)整理,請在劃線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    (2)數(shù)據(jù)處理,請在劃線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    (3)由圖b可知,學(xué)考技術(shù)均分低于60分的班級共有
     
    個(填數(shù)字)。
    菁優(yōu)網(wǎng)?
    發(fā)布:2024/10/9 0:0:2組卷:2引用:1難度:0.5
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司 | 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:4.8.2  |  隱私協(xié)議      第三方SDK     用戶服務(wù)條款廣播電視節(jié)目制作經(jīng)營許可證出版物經(jīng)營許可證網(wǎng)站地圖本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正