2018-2019学年浙江省五校联考高三（上）第一次月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息和信息技术的说法，正确的是（ ）
组卷：9引用：1难度：0.7 -
2．以下哪个软件无法对网页进行编辑（ ）
组卷：30引用：1难度：0.6 -
3．小明扫描课本得到“相信未来3．jpg”图象，使用OCR软件进行字符识别，部分界面如图1所示；将识别结果用Word软件进一步进行编辑，部分界面如图2所示。
下列说法正确的是（ ）组卷：20引用：4难度：0.5 -
4．如图所示为在UltraEdit软件中观察字符内码的部分界面：
下列说法正确的是（ ）组卷：26引用：2难度：0.4 -
5．小明利用Access软件创建了关于员工信息的数据表，如图所示。
以下说法正确的是（ ）组卷：22引用：2难度：0.3
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．双调序列：指的是有n个整数进行排序，在序列中第一个数是n个数当中最大数，第二个数是n个数中最小数，第三个数是n个数中的第二大数，第四个是n个数中的第二小数……取过的数字不能再取，依此类推，直到结束。
小明根据上述概念制作了VB应用程序，功能如下：程序运行后，点击“生成”按钮Command1随机生成10个不重复的[0，99]内的整数，列表框List1中显示排序之前数据；单击“排序”按钮Command2，在列表框List2中显示这些数据的双调序列结果。其程序界面如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const n=10
Dim a（1To n） As Integer
Dim b（0To 99）As Integer
Private Sub Command1_Click（ ）
‘随机生成10个不重复的[0，99]之间的整数，存储在a数组中，代码略。
End Sub
Private Sub Command2_Click （ ）
Dim i As Integer,j As Integer,k As Integer
k=0
For i=1To n
'①
Next i
For j=0To 99
If b（j）=1Then
k=k+1
a（k）=j
End If
Next j
For i=1To n\2
List2．AddItem
'②
List2．AddItem Str（a（i））
Next i
End Sub组卷：2引用：1难度：0.5 -
17．小明编写了一个数据加密的VB程序功能如下：在文本框Text1中输入明文，单击“加密”按钮Command1后在文本框Text2中显示加密后的密文，运行界面如图所示。
其中加密算法如下：
①将明文中的ASCII码每3个字节为一组（该明文字符串均为ASCII码，且字节数为3的倍数），顺次连接后得到24位二进制数
②将①中的24位二进制数每8位进行一次翻转操作，比如原来的“0101 0001”变为“1000 1010”
③将②所得24位二进制数逐位取反，比如原来的“1110”变为“0001”
④将③中所得的24位二进制数每6位一组转换为相应的十进制数，即得到对应的密文
⑤将所有密文顺序连接并输出
实现上述功能的VB程序如下，请回答下列问题：
（1）按照上述加密算法进行加密，则“ABC”的密文是（已知“A”的ASCII码值为65）
（2）请在横线处填入合适代码：
Dim a（1To 24）As Integer,k As Integer
Private Sub Command1_Click （ ）
Dim mw As String,ch1As Integer,ch2As String,ch3As String,s As String
Dim m As Integer,i As Integer,j As Integer
s=““
mw=Text1．Text‘mw存储明文字符串
For i=1To Len（mw） Step 3
For j=1To 24‘初始化数组，用于存储三个字节的二进制数
a（j）=0
Next j
k=1
ch1=Asc（Mid（mw,i,1））
ch2=Asc（Mid（mw,i+1，1））
ch3=Asc（Mid（mw,i+2，1））
Convert （ch1）‘调用自定义过程Convert
Convert （ch2）
Convert （ch3）
For j=1To 24‘逐位取反
①
Next j
For j=1To 4
m=0
For p=②To j*6‘每6位一组进行权值相加
m=m*2+a（p）
Next p
s=s & m
‘&连接运算符，连接数字和字符串时，会将数字自动转换为字符串
Next j
Next i
Text2．Text=s
End Sub
Sub Convert（x As Integer）
Dim i As Integer,j As Integer
Do While x＞0
a（k）=x Mod 2
x=x\2
k=k+1
Loop
j=③‘8位二进制数，高位补“0”
k=k+j
End Sub组卷：2引用：1难度：0.4
