2016-2017学年浙江省宁波十校联考高三（上）月考信息技术试卷（9月份）
发布：2024/12/19 18:30:1
一、选择题（本大题共12小题，每小题2分，共424分。在每小题列出的四个选项中，只有一项是符合题目要求的，不选、多选、错选均不得分）
-
1．在线观看视频时，有大量评论出现的效果叫弹幕，如图所示．这种弹幕的评价方式属于（ ）组卷：13引用：4难度：0.7 -
2．如图所示为电子邮件发送操作界面，发送成功后，以下说法正确的是（ ）
组卷：9引用：3难度：0.7 -
3．在Word 中对某段文字进行修订和批注，修订选项的设置如图1所示，修订界面如图2所示．接受所有修订后，结果为（ ）
组卷：7引用：3难度：0.7 -
4．使用OCR 软件进行文字识别，部分界面如图所示：
则下列说法正确的是（ ）组卷：10引用：4难度：0.5 -
5．如图是一张使用Access软件创建的数据表：
下列有关该数据表的说法正确的是（ ）组卷：6引用：3难度：0.9
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．【加试题】Excel 筛选功能中，有一种筛选方式是筛选出最大或最小的n项．当数据项中有相同项时，筛选出来的数据条数则可能会超过设定的项数，如图1所示，设置筛选条件为最大的5项，由于有4 个“87”的值并列第四，因此最后筛选结果就有7 条，而不应该是5条．
现利用VB 编写一个类似功能的程序．功能如下：数组xh、kh 和cj 分别存储了序号、考号和成绩数据，窗体加载时，序号、考号和成绩显示在列表框list1中．在文本框Text1中输入数值N，点击“筛选”按钮，可以将成绩最大的前 N 项筛选出来，并按由大到小的顺序显示在列表框list2 中．程序运行界面如图2所示．
实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim num As Integer
Dim xh（1 To 1000）As String
Dim kh（1 To 1000）As String
Dim cj（1 To 1000）As Integer
Private Sub Form_Load（ ）
’本过程从数据库中将序号、考号、成绩分别存入
数组 xh、kh、cj 中，并将人数赋值给了 num
’代码略
End Sub
Private Sub Command1_Click（ ）
Dim N As Integer,i As Integer,j As Integer
Dim t1 As String,t2 As Integer
N=Val（Text1．Text）
List2．Clear
For i=1 To N
k=i
If cj（k）＜cj（j） Then k=j
Next j
If k＜＞i Then
t1=xh（i）：xh（i）=xh（k）：xh（k）=t1
t1=kh（i）：kh（i）=kh（k）：kh（k）=t1
t2=cj（i）：cj（i）=cj（k）：cj（k）=t2
End If
List2．AddItem xh（i）+““+kh（i）+““+Str（cj（i））
Next i
’以下代码是处理可能存在的重复项
For i=N+1 To num
List2．AddItem xh（i）+““+kh（i）+““+Str（cj（i））
End If
Next i
End Sub.组卷：4引用：1难度：0.1 -
17．【加试题】李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100 内的随机数*27+2，…，“Z”变为一个 1 到 100 内的随机数*27+26；
（2）每个字母变为数字后会加上一个“-”用来分割数字；
（3）其他空格和标点字符都按原来的表示．
李雷利用VB 编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框 Text2 中．
程序运行界面如图所示：
（1）根据描述，若密文为“1905-1442-”，则表示的是：．
（2）实现上述功能的 VB 程序如下，请在横线处填入合适代码．
Private Sub Command1_Click（ ）
Dim s As String,yw As String,t As String
Dim value As Integer'用于存储某字母在密文中对应数值的临时变量
s=Text1．Text
value=0
yw=””
For i=1 To Len（s）
t=
If t＞=“0“And t＜=“9“Then
value=value*10+Val（t）
ElseIf t=“-“Then
yw=yw+Chr（Asc（“A“）+value Mod 27-1）
Else
yw=yw+t
End If
Next i
Text2．Text=yw
End Sub.组卷：7引用：2难度：0.1
