2017-2018学年浙江省“七彩阳光”新高考研究联盟高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一.选择题:(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.关于信息技术的说法,正确的是( )
组卷:21引用:1难度:0.5 -
2.用邮件客户端收取邮件时,使用下列哪个协议( )
组卷:8引用:6难度:0.9 -
3.小张在一份杂志上到看到有关“区块链”知识的介绍,他用扫描仪扫描以后得到了一个“区块链技术。jpg”的文件,使用OCR软件进行字符识别,部分界面如图所示。下列说法不正确的是( )
组卷:13引用:2难度:0.3 -
4.下列说法正确的是( )
组卷:4引用:1难度:0.7 -
5.某算法的部分流程图如图所示,执行这部分流程,输出结果为( )
组卷:3引用:1难度:0.4
二.非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.某活动要从 100 名参赛者中选出成绩最高的前十名给予一定的奖励。活动组织者编 写了如下程序,功能是根据成绩进行排序,程序中数组 a 保存所有参赛者的组次,数组 b 保存对应 的成绩,如第 1 位参赛者的组次 1 保存在 a(1)中,成绩保存在 b(1)中。程序界面如图所示,左边 列表框 List1 中显示原始数据(序号和相应的成绩),单击“排序”按钮(Command1),排序后的结 果按成绩从高到低显示前 10 名选手的序号和成绩在列表框 List2 中,若最后一名成绩有相同的也 一起输出。界面如图所示:
实现上述功能的 VB 程序如下,但加框处代码有错,请改正。
Const n=100
Dim a(1 To n) As Integer
Dim b(1 To n) As Integer
Private Sub Form_Load ( )'窗体被加载时
‘获取原始数据,将参赛者序号和最后得分分别存在数组 a 和数组 b 内,并在列表框 List1 中 显示。代码略
End Sub
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,k As Integer,temp As Integer
List2.Clear
For i=1 To 10 k=i‘①
If b(k)<b(j) Then k=j
End If
Next j
If k<>i Then
temp=b(i):b(i)=b(k):b(k)=temp temp=a(i):a(i)=a(k):a(k)=temp
End If
List2.AddItem Str(a(i))+““+Str(b(i)) Next i
m=10
For i=11 To n
Ifthen‘②
m=m+1
List2.AddItem Str(a(i))+““+Str(b(i)) End If
Next i
Label3.Caption=“本次十佳歌手一共有“+Str(m)+“组“End Sub组卷:2引用:1难度:0.5 -
17.某字符串(字节数为 2 的倍数)编码规则如下:
(1)将该字符串内码分成 2 个字节一组,每个字节前补上一个 0,构成 9 位二进制,顺次链接后得 到 18 位二进制;
(2)将得到的 18 位二进制数字分成 3 组,每组 6 位;
(3)在每组数字前补上两个 0,得到 3 个字节的二进制数;
(4)将(3)中得到的三个字节的二进制数分别转换为十进制数;
( 5 )将 每个十 进制数转 换为 1 个加 密字符,对应的“密码表”按数 值由小到 大依次 为“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/”小明按照上述方法,设计了一个字符串(仅包含 ASCII 字符)加密的 VB 程序,功能如下:单击“加 密”按钮 Command1,程序依次将文本框 Text1 中每 2 个字符的 ASCII 码值按编码规则转换为三个加 密字符,连接这些加密字符,最后在文本框 Text2 中输出加密结果。程序效果如图所示。
实现上述功能的 VB 程序如下:
(1)在 Text1 中输入明文“AB”,用上述加密算法得到的密文为
(2)实现上述功能的 VB 程序如下。请在横线处填入合适的代码。
Function cc(n As Integer) As String
Dim s As String
s=“012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/“
①
End Function
Private Sub Command1_Click ( )
Dim n As Integer,s As String,i As Integer,ss As String
Dim a1 As Integer,a2 As Integer
Dim b1 As Integer,b2 As Integer,b3 As Integer s=Text1.Text
n=Len(s)
ss=““
For i=1 To nStep 2
a1=Asc(Mid(s,i,1))
②
b1=a1\8
b2=③
b3=a2 Mod 64
ss=ss+cc(b1)+cc(b2)+cc(b3)Next i
Text2.Text=ss
End Sub组卷:2引用:1难度:0.4