2019年浙江省余姚市高考信息技術(shù)二模試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求．）
-
1．下列有關(guān)信息的說(shuō)法，正確的是（ ?。?/h2>
組卷：31引用：2難度：0.5 -
2．下列有關(guān)電子郵件的說(shuō)法，不正確的是（ ?。?/h2>
組卷：4引用：2難度：0.6 -
3．下列應(yīng)用中，體現(xiàn)人工智能技術(shù)的有（ ）
①UPS（不間斷電源）在停電后會(huì)自動(dòng)切換為后備電源
②某款產(chǎn)品能實(shí)現(xiàn)對(duì)全屋電器的聲控，解放雙手
③手機(jī)通過(guò)安裝某APP能實(shí)現(xiàn)對(duì)各種電器的遙控
④某APP根據(jù)拍攝的作業(yè)照片給出相應(yīng)的解題信息
⑤公安部門(mén)通過(guò)“天眼”系統(tǒng)快速查找、定位到犯罪嫌疑人組卷：29引用：5難度：0.7 -
4．用Access軟件打開(kāi)數(shù)據(jù)庫(kù)，部分界面如圖所示。下列說(shuō)法正確的是（ ）
組卷：8引用：2難度：0.6 -
5．用 UltraEdit 軟件觀察字符內(nèi)碼，下列說(shuō)法正確的是（ ）
組卷：19引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．小吳為了研究排序后的各數(shù)據(jù)在排序前的位置，編寫(xiě)了一個(gè) VB 程序，功能如下：在列表框 List1中顯示排序前數(shù)據(jù)（存儲(chǔ)在數(shù)組a中），單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示排序后的數(shù)據(jù)及該數(shù)據(jù)在排序前的位置。程序運(yùn)行界面如圖所示：
實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Dim d（1 To 12）As Integer'存儲(chǔ)排序前的數(shù)據(jù)
Private Sub Form_Load （ ?。?br />d（1）=13：d（2）=49：d（3）=26：d（4）=35：d（5）=73：d（6）=15：d（7）=22：d（8）=86
d（9）=31：d（10）=10：d（11）=41：d（12）=44
Dim i As Integer,j As Integer
For i=1 To 12
List1．AddItem d（i）
Next i
End Sub
Private Sub Command1_Click （ ?。?br />Dim a（1 To 12）As Integer'存儲(chǔ)排序后的數(shù)據(jù)
Dim b（1 To 12）As Integer'存儲(chǔ)排序前各數(shù)據(jù)所在位置
Dim c（1 To 12）As Boolean'數(shù)組 c 用來(lái)判斷排序的數(shù)據(jù)是否已篩選出
Dim i As Integer,k As Integer,j As Integer
For i=1 To 12
a（i）=0
b（i）=0
c（i）=false
Next i
k=0
For i=1 To 12
For j=1 To 12
If
Then‘（1）
a（i）=d（j）
k=j
End If
Next j
‘（2）
c（k）=True
Next i
For i=1 To 12
List2．Addltem Str（a（i））+““+Str（b（i）
Next i
End Sub組卷：5引用：1難度：0.5 -
17．小張利用 VB 給教務(wù)處老師編寫(xiě)了“排監(jiān)考表”的小程序。該程序的執(zhí)行過(guò)程如下：
①?gòu)臄?shù)據(jù)庫(kù)中讀取待排監(jiān)考的老師姓名信息存入數(shù)組 teachers,每個(gè)考試科目的學(xué)生數(shù)（新高考7選3，每個(gè)考試科目學(xué)生數(shù)不一樣）存入數(shù)組xkStudSum（其中xkStudSum（1）存放語(yǔ)文學(xué)科的學(xué)生數(shù)，按“語(yǔ)文數(shù)學(xué)英語(yǔ)物理化學(xué)生物政治歷史地理技術(shù)”依此類推）；
②根據(jù)每個(gè)試場(chǎng)的人數(shù)（30 人）計(jì)算出各個(gè)考試科目的試場(chǎng)數(shù)存入數(shù)組 xkSc（其中 xkSc（1）存放語(yǔ)文學(xué)科的試場(chǎng)數(shù)，依此類推）；
③將待排教師分配到每一個(gè)考場(chǎng)，并存入數(shù)組scTeacher（每個(gè)老師只能排1場(chǎng)，教師 數(shù)量100保證大于所有的試場(chǎng)數(shù)）；
④按考試科目將監(jiān)考教師姓名顯示在list1中。運(yùn)行界面如圖所示：
（1）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)完善橫線處的代碼。
Const XKMC=“語(yǔ)文數(shù)學(xué)英語(yǔ)物理化學(xué)生物政治歷史地理技術(shù)“
Dim xkStudSum（1 To 10）As Integer'各個(gè)考試科目學(xué)生數(shù)
Dim teachers（1 To 100）As String'存放待排監(jiān)考的教師姓名
Dim scTeacher（1 To 100）As String'存放已排監(jiān)考的教師姓名
Dim xkSc（1 To 10）As Integer'各個(gè)學(xué)科試場(chǎng)數(shù)
Private Sub form_Load （ ?。?br />‘本過(guò)程從數(shù)據(jù)庫(kù)中讀取各考試科目學(xué)生數(shù)并存放在數(shù)組 xkStudSum‘讀取教師姓名并存放在數(shù)組teachers
‘本過(guò)程代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim index As Integer
Dim totalSc As Integer‘存放總試場(chǎng)數(shù)量
Dim book（1 To 100）As Boolean
Randomize
For i=1 To 10
xkSc（i）=①
totalSc=totalSc+xkSc（i）
Next i
For i=1 To totalSc
t=Int（Rnd*100）+1‘隨機(jī)生成待排監(jiān)考老師的編號(hào)
If not book（t） Then
scTeacher（i）=teachers（t）
book（t）=True
Else
②
End If
Next i
‘按考試科目顯示監(jiān)考老師
For i=1 To 10
s=Mid（xkmc,2*i-1，2）+“：“
For j=1 To xkSc（i）
③
s=s+scTeacher（index）+“，“
Next j
List1．AddItem s
Next i
End Sub
（2）根據(jù)問(wèn)題描述和分析代碼，寫(xiě)出數(shù)組scTeacher中存放“數(shù)學(xué)學(xué)科”第2個(gè)監(jiān)考教師姓名的下標(biāo)的vb表達(dá)式。組卷：8引用：1難度：0.3