2017-2018學(xué)年浙江省溫州新力量聯(lián)盟高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）
-
1．下列關(guān)于信息的說法，正確的是（ ）
組卷：8引用：1難度：0.6 -
2．關(guān)于瀏覽器和網(wǎng)頁(yè)的說法，正確的是（ ）
組卷：8引用：1難度：0.4 -
3．用 Word 軟件編輯某文檔，部分界面如圖所示。
下列有關(guān)圖中批注與修訂的說法，正確的是（ ）組卷：7引用：1難度：0.2 -
4．某水果商創(chuàng)建的 Access 文件，其數(shù)據(jù)表視圖如圖所示，下列說法中正確的是 （ ）
組卷：5引用：1難度：0.4 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程圖，依次輸入 3，2，1，變量 i,s 的值 分別是（ ）
組卷：0引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．某次考試的流程為先筆試再面試，筆試成績(jī)達(dá)到面試資格線的可以入圍參加面試。入圍面試 的資格線根據(jù)計(jì)劃錄取人數(shù)的 200%劃定，即如果考試最終錄取 x 人，則第 2*x 名選手的筆試分 數(shù)為面試資格的分?jǐn)?shù)線（該分若有同分者可一同參與面試）。現(xiàn)在編寫 VB 程序功能如下：自動(dòng) 讀取數(shù)據(jù)庫(kù)中考生考號(hào)和筆試成績(jī)，依次存儲(chǔ)在數(shù)組 kh（i）、cj（i）中，并顯示在 List1 列表框中。單 擊“入圍劃線”按鈕 Command1，面試分?jǐn)?shù)線顯示在文本框 Text2 中，入圍面試最終人數(shù)顯示在 Text3 中，進(jìn)入面試的考生的考號(hào)和筆試成績(jī)顯示在 List2 列表框中，如果成績(jī)相同，則按考號(hào)由小到 大的順序顯示。程序界面如圖所示。
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 （ ）
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)計(jì)進(jìn)入面試人數(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ù)表名為。
（2）（單選）可以填在①處的代碼是
A．i+1To n B．n To i+1C.1To n-i
（3）請(qǐng)?jiān)冖凇ⅱ蹤M線處填入適當(dāng)?shù)拇a。組卷：3引用：1難度：0.4