2019-2020学年浙江省绍兴市诸暨市高二（下）期末信息技术试卷
发布：2024/11/21 1:30:2
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．小陈去某景点旅游，景点门票两日内有效，首次入园需验票（即扫描门票上的二维码），然后采集人脸信息，若两日内再次入园只需人脸识别即可，下列说法正确的是（ ）
组卷：7引用：1难度：0.7 -
2．小周到某科技馆游玩，经历了下列事件，对于以上事件，下列选项中都体现人工智能技术应用的是（ ）
①使用纸质地图查找该科技馆的位置
②安装科技馆APP下载中文导游图
③向“人机对话”导游机器人询问景点位置
④和机器人进行象棋对弈
⑤在自动售货机上使用刷脸支付
⑥把游玩感受发到“朋友圈”组卷：1引用：1难度：0.6 -
3．用Access软件设计某校图书借阅信息管理系统的数据库，其中“图书表”中需要存储如表所示的数据。
下列关于“图书表”的描述，正确的是（ ）序号 书名 类别
代码出版社 作者 价格 登记日期 1 活着 001 北京十月文艺出版社 余华 ￥23.30 2008年9月1日 2 文化苦旅 001 长江文艺出版社 余秋雨 ￥39.80 2015年3月1日 3 百年孤独 002 南海出版公司 加西亚•马尔克斯 ￥31.60 2012年8月2日 … … … … … … … 组卷：0引用：1难度：0.6 -
4．使用GoldWave软件编辑某音频文件，选中其中一段音频后，部分界面如图所示。
下列说法正确的是（ ）组卷：0引用：1难度：0.6 -
5．下列关于数制的说法，正确的是（ ）
组卷：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 （ ）
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 （ ）
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．小李上网时发现词云图很有意思，出现频率越高的文字越会突出显示。他以此获得灵感，编写了一个“词云榜”的VB程序，功能如下：单击“读取”按钮command1，从数据库中读取英文名言的相关数据，将各条名言存储在数组st中，并将各元素显示在列表框List1；在文本框Text1中输入需要输出的行数，单击“统计”按钮command2，先在数组st各元素中提取单词（单词间隔符号只可能是空格、逗号和句号）存储到数组word中，再将word数组各元素值进行整理和归类，把不同的单词分别存储到数组term中，同时统计各单词的出现次数，接着按照各单词出现次数从高到低排序，最后在列表框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
