2016-2017学年浙江省金华十校高二（下）期末信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．下列关于人工智能的说法，不正确的是（ ）
组卷：9引用：2难度：0.9 -
2．下列说法中，不正确的是（ ）
组卷：6引用：1难度：0.9 -
3．下列关于多媒体技术应用的描述，正确的是（ ）
组卷：22引用：1难度：0.9 -
4．使用UltraEdit软件观察字符内码，部分界面如图所示，下列说法正确的是（ ）
组卷：9引用：1难度：0.5 -
5．使用Word软件编辑某文档，部分界面如图所示，下列说法正确的是（ ）
组卷：4引用：2难度：0.2
二、填空题（共5小题，每小题4分，满分26分）
-
16．某校每年都举办校园十佳歌手比赛，小明用VB编写了一个计分用的程序用于统计处理比赛成绩，运行界面如图所示。
在输入区域输入选手编号和每位评委给该选手的打分后，单击“计算平均得分”按钮Command1，得到当前选手的最终得分，并显示在列表框List1中。所有选手的成绩输入完毕后，单击“排名”按钮Command2，在列表框List2中显示按编号顺序排列的选手得分及名次（若得分一样，排名相同），再在列表框List3中显示按名次顺序排列的前十位选手的编号及得分。
实现上述功能的VB程序如下，代码加框处有错，请改正。
Const rs=20'参赛总人数为20
Dim num（1 To rs）As Integer'存放选手编号
Dim se（1 To rs）As Double'存放选手得分
Dim rk（1 To rs）As Integer'存放选手名次
Private Sub Command1_Click（ ）
'计算每位选手的平均得分并显示到列表框List1中，代码略
End Sub
Private Sub Command2_Click（ ）
Dim i As Integer,j As Integer,me As Integer
List2．Clear：List3．Clear
For i=1 To rs
mc=0
'①
If sc（i）＜sc（j） Then mc=mc+1
Next j
'②
Nxet i
For i=1 To rs
List2．AddItem num（i）&“号选手“&““&Format（Str（sc（i）），“00.00“）&““&rk（i）
Nxet i
'在列表框List3中按名次顺序显示选手信息，代码略
End Sub
加框①处的代码应改为：；加框②处的代码应改为：。组卷：2引用：1难度：0.5 -
17．在英语学科的网上阅卷中，因技术还不够成熟，写作部分仍需手工评卷．在李老师的建议下，小明决定用VB语音对识别成功后的作文做一些初评．他的设想是：
（1）按位依次取出每个单词，存入数组wd中：每个单词出现的次数存储在数组wd_num中；单词的字符长度存储在数组wd_len中．为方便统计，所有字母均转换为小写．
（2）所有单词全部取出并存好后，将这些单词按字典顺序重新排列，对应的长度和出现的次数也跟着重新排列．
（3）评卷的标准之一是“必须出现指定的关键词”．这些关键词在统计之前先输入并存放在数组key中．程序中用二分查找法在数组wd中找到每个关键词出现的次数，存储在数组key_num中．
（4）最后输出统计结果，包括单词的数量、单词的平均长度，以及每个关键词出现的次数．运行界面如图所示：
请回答下列问题：
（1）根据小明的设想，如果输入距离“Read,let the words warm your stillness.”，则经过统计后，数组元素wd_len（3）的值为．
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码．
Const keynum=7'关键词的个数为7个
Dim key （1 To keynum） As String'数组key用于存放指定的关键词
Dim key_num（1 To keynum） As Integer'数组key_num用于存放每个关键词出现的次数
Dim wd（1 To 500）As String'数组wd用于存放从作文中提取出来的每个单词
Dim wd_len（1 To 500）As Integer'数组wd_len用于存放wd中每个单词的长度
Dim wd_num（1 To 500）As Integer'数组wd_num用于存放wd中每个单词在作文中出现的次数
Function dtox（ch As String） As String
If ch＞=“A“And ch＜=“Z“Then dtox=Chr（Asc（ch）+32）Else dtox=ch
End Function
Private Sub Form_Load（ ）
'对部分变量和数组进行初始化，代码略
End Sub
Private Sub Text2_KeyPress（KeyAscii As Integer）
'将逐个输入的关键词依次存入数组key中，并在List1中显示出来，代码略
End Sub
Private Sub Command1_Click（ ）
'其他变量的定义，代码略
List2．Clear
'以下程序段用于将作文中的每个单词提取出来，存入数组wd中
atc=Text1．Text：m=0：word=““
flag1=False'flag=False表示一个单词的开始，单词个数m增加1，
'flag=True表示余下的连续字母不再计数，
For i=1 To Len（atc）'按位取出字符，若是大写字母，则转换为小写字母
If char＞=“a“And char＜=“z“Then
word=word+char
If Not flag1 Then m=m+1：flag1=True
Else
flag1=False
'检查该单词在数组wd中是否已经存在
flag2=False
For j=1 To m-1
If wd（j）=word Then.组卷：5引用：1难度：0.1
