2017-2018學(xué)年浙江省溫州新力量聯(lián)盟高二(下)期末信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分.)
-
1.下列關(guān)于信息的說(shuō)法,正確的是( )
組卷:8引用:1難度:0.6 -
2.關(guān)于瀏覽器和網(wǎng)頁(yè)的說(shuō)法,正確的是( )
組卷:8引用:1難度:0.4 -
3.用 Word 軟件編輯某文檔,部分界面如圖所示。
下列有關(guān)圖中批注與修訂的說(shuō)法,正確的是( ?。?/h2>組卷:7引用:1難度:0.2 -
4.某水果商創(chuàng)建的 Access 文件,其數(shù)據(jù)表視圖如圖所示,下列說(shuō)法中正確的是 ( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201807/133/baecff92.png" style="vertical-align:middle" />
組卷:5引用:1難度:0.4 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程圖,依次輸入 3,2,1,變量 i,s 的值 分別是( ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201807/133/b7110229.png" style="vertical-align:middle" />
組卷: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ù)線(該分若有同分者可一同參與面試)?,F(xiàn)在編寫(xiě) 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( ?。?br />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”
‘本過(guò)程其他代碼略 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=
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ù)超過(guò)總?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)冖?、③橫線處填入適當(dāng)?shù)拇a。組卷:3引用:1難度:0.4