某次考試的流程為先筆試再面試,筆試成績達(dá)到面試資格線的可以入圍參加面試。入圍面試 的資格線根據(jù)計劃錄取人數(shù)的 200%劃定,即如果考試最終錄取 x 人,則第 2*x 名選手的筆試分 數(shù)為面試資格的分?jǐn)?shù)線(該分若有同分者可一同參與面試)?,F(xiàn)在編寫 VB 程序功能如下:自動 讀取數(shù)據(jù)庫中考生考號和筆試成績,依次存儲在數(shù)組 kh(i)、cj(i)中,并顯示在 List1 列表框中。單 擊“入圍劃線”按鈕 Command1,面試分?jǐn)?shù)線顯示在文本框 Text2 中,入圍面試最終人數(shù)顯示在 Text3 中,進入面試的考生的考號和筆試成績顯示在 List2 列表框中,如果成績相同,則按考號由小到 大的順序顯示。程序界面如圖所示。
Dim kh(1to 500)As string,cj(1to 500)As Integer Dim n As Integer‘參加考試總?cè)藬?shù)
Private Sub Form_Load( )
Dim conn as new ADODB.connection:Dim rs As New ADODB.Recordset conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”
+App.Path+”\BSCJ.a(chǎn)ccdb”conn.Open
set rs.activeconnection=conn rs.Open“select*FROM scoreinfo”
‘本過程其他代碼略 End Sub
Private Sub Command1_Click ( ?。?br />Dim m As Integer,i As Integer,j As Integer Dim t1As Integer,t2As String,flag As Boolean For i=1To n-1‘排序
For j=①①If
cj(i)<cj(j) Then
t1=cj(i):cj(i)=cj(j):cj(j)=t1t2=kh(i):kh(i)=kh(j):kh(j)=t2
Elseif cj(i)=cj(j) And kh(i)>kh(j) Then t2=kh(i):kh(i)=kh(j):kh(j)=t2
End If Next j
Next i
m=②②
If m<=n Then‘統(tǒng)計進入面試人數(shù) i=m
flag=False
Do While ③③
If cj(i)=cj(i+1)Then
i=i+1Else
flag=True End If
Loop
Text2.text=Str(cj(m)) Text3.text=Str(i)
For j=1To i
List2.AddItem kh(j)+“”+Str(cj(i)) Next j
Else
Text2.Text=”面試人數(shù)超過總?cè)藬?shù)了”End If
End Sub
(1)讀取的數(shù)據(jù)表名為 scoreinfoscoreinfo。
(2)(單選)可以填在①處的代碼是 AA
A.i+1To n B.n To i+1C.1To n-i
(3)請在②、③橫線處填入適當(dāng)?shù)拇a。 2*Val(Text1.text) i<n and flag=False2*Val(Text1.text) i<n and flag=False
【考點】編輯事件處理過程的代碼.
【答案】①;②;③;scoreinfo;A;2*Val(Text1.text) i<n and flag=False
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:3引用:1難度:0.4
相似題
-
1.學(xué)校舉辦了“語文作文現(xiàn)場賽”,參賽同學(xué)成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學(xué)的姓名和成績,以“:”分隔)。陳老師利用Python程序?qū)ψ魑某煽冞M行處理,統(tǒng)計出各個分?jǐn)?shù)等級的人數(shù),并輸出結(jié)果。程序運行界面如右圖所示。
實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3 -
2.有如下Python程序段:
執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結(jié)果是( )發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4 -
3.試題描述的內(nèi)容:
一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內(nèi)有1個按鈕
(2)窗體內(nèi)有2個文本框
(3)窗體內(nèi)有3個標(biāo)簽
(4)該窗體的標(biāo)題(Caption)屬性值是“加法計算器”發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
把好題分享給你的好友吧~~