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