2019-2020學年浙江省紹興市諸暨市高二（下）期末信息技術試卷
發(fā)布：2024/11/21 1:30:2
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．小陳去某景點旅游，景點門票兩日內有效，首次入園需驗票（即掃描門票上的二維碼），然后采集人臉信息，若兩日內再次入園只需人臉識別即可，下列說法正確的是（ ?。?/h2>
組卷：5引用：1難度：0.7 -
2．小周到某科技館游玩，經歷了下列事件，對于以上事件，下列選項中都體現人工智能技術應用的是（ ?。?br />①使用紙質地圖查找該科技館的位置
②安裝科技館APP下載中文導游圖
③向“人機對話”導游機器人詢問景點位置
④和機器人進行象棋對弈
⑤在自動售貨機上使用刷臉支付
⑥把游玩感受發(fā)到“朋友圈”組卷：1引用：1難度：0.6 -
3．用Access軟件設計某校圖書借閱信息管理系統(tǒng)的數據庫，其中“圖書表”中需要存儲如表所示的數據。
下列關于“圖書表”的描述，正確的是（ ?。?/h2>序號 書名 類別
代碼出版社 作者 價格 登記日期 1 活著 001 北京十月文藝出版社 余華 ￥23.30 2008年9月1日 2 文化苦旅 001 長江文藝出版社 余秋雨 ￥39.80 2015年3月1日 3 百年孤獨 002 南海出版公司 加西亞?馬爾克斯 ￥31.60 2012年8月2日 … … … … … … … 組卷：0難度：0.6 -
4．使用GoldWave軟件編輯某音頻文件，選中其中一段音頻后，部分界面如圖所示。
下列說法正確的是（ ）組卷：0引用：1難度：0.6 -
5．下列關于數制的說法，正確的是（ ?。?/h2>
組卷：3引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小李設計的一VB程序功能如下：在文本框Text1中輸入隨機數的個數n（個數不超過100），單擊“生成”按鈕Command1，生成n個隨機整數，奇數位置產生奇數，偶數位置產生偶數，并將它們依次存儲在數組a中。單擊“排序”按鈕Command2，對數組各元素中的奇數實現升序排序，偶數實現降序排序。部分運行界面如圖所示。
（1）下列對象不具有 Caption 屬性的是（單選，填字母：A．Form1/B．Text1/C．Label1）
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適代碼。
（3）程序代碼中的加框處代碼有誤，請改正。
Dim n As Integer
Dim a（1 To 100）As Integer
Private Sub create_Click （ ?。?br />Dim i As Integer
Randomize
n=Val（Text1．Text）
For i=1 To n
a（i）=Int（Rnd （ ?。?45）*2+11
If ①Then a（i）=a（i）-1
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub sort_Click （ ?。?br />For i=1 To n\2
For j=1 To n-2*i Step 2
If ②Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
End If
Next j
k=c
For j=k+2 To n Step 2
If a（j）＞a（k）Then ③
Next j
If k＜＞c Then
t=a（k）：a（k）=a（c）：a（c）=t
End If
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub組卷：0引用：1難度：0.5 -
16．小李上網時發(fā)現詞云圖很有意思，出現頻率越高的文字越會突出顯示。他以此獲得靈感，編寫了一個“詞云榜”的VB程序，功能如下：單擊“讀取”按鈕command1，從數據庫中讀取英文名言的相關數據，將各條名言存儲在數組st中，并將各元素顯示在列表框List1；在文本框Text1中輸入需要輸出的行數，單擊“統(tǒng)計”按鈕command2，先在數組st各元素中提取單詞（單詞間隔符號只可能是空格、逗號和句號）存儲到數組word中，再將word數組各元素值進行整理和歸類，把不同的單詞分別存儲到數組term中，同時統(tǒng)計各單詞的出現次數，接著按照各單詞出現次數從高到低排序，最后在列表框List1中的第一行顯示出現次數最多的一個單詞，第二行顯示出現次數第二、第三多的兩個單詞，第三行顯示出現次數第四、第五、第六多的三個單詞……以此類推。程序運行界面如圖所示。
（1）分析程序，可知數據庫的文件名為。
（2）請在橫線處填入合適的代碼。
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim st（1 To 100）As String
Dim n As Integer
Private Sub Command1_Click
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“& App.Path &“\名言．accdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“Select*From sayings“
n=0
Do While Not rs.EOF
n=n+1
st（n）=rs.Fields（“sentence“）
rs.MoveNext
Loop
rs.Close
conn.Close
Set conn=Nothing
For i=1 To n
List1．AddItem st（i）
Next i
End Sub
Private Sub Command2_Click
Dim word（1 To 1000）As String
Dim term（1 To 1000）As String
Dim num（1 To 1000）As Integer
k=1
For i=1 To n
For j=1 To Len（st（i））
If c＞=“A“And c＜=“Z“Then c=Chr（Asc（c）+32）
If c＜＞““And c＜＞“，“And c＜＞“．“Then
temp=temp+c
Else
word（k）=temp
k=k+1
temp=““
End If
Next j
Next i
t=1
term（1）=word（1）：num（1）=1
For i=2 To k-1
For j=1 To t
IfThen Exit For
Next j
If j＞t Then
t=t+1
term（t）=word（i）
num（t）=1
Else
num（j）=num（j）+1
End If
Next i
’數組term按照單詞出現次數從高到低進行排序，代碼略
List2．AddItem““+term（1）
x=2：w=1：v=1：txt=““
Do While x＜=Val（Text1．Text）
w=w+1
For y=1 To w
txt=txt+““+term（z）
Next y
List2．AddItem txt
txt=““
x=x+1
v=z
Loop
End Sub組卷：0引用：1難度：0.3