2018-2019学年浙江省杭州市建人高复学校高三（上）第一次月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列软件中，可用于编辑视频文件的是（ ）
组卷：3引用：1难度：0.9 -
2．某网络协议的功能是将浏览器发出的请求发送至 Web 服务器，并将服务器回应的网页传回浏览器。该协议的名称是（ ）
组卷：2引用：2难度：0.8 -
3．用Word编辑某文档，操作界面如图所示．则以下说法正确的是（ ）
组卷：11引用：2难度：0.9 -
4．使用Access软件创建的“动漫作品”数据表，其设计视图的部分界面如图所示。下列说法正确的是（ ）
组卷：6引用：1难度：0.3 -
5．如图所示，从上到下5行分别对应5个十进制数：1，2，3，4，5．〇〇●〇〇●●〇表示的数是（ ）组卷：0引用：1难度：0.9
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题3分，第17小题6分，共26分）
-
16．小王编写了一个猜价格的VB程序，程序界面如图所示。程序运行时，在列表框List1中显示20个随机生成的在[150，250]之间的价格及其序号。在文本框Text1中输入报价，单击Command1“猜测”按钮后，在Label3中输出猜中价格对应的序号。
实现上述功能的VB程序如下，但加框处代码有误，请改正。
Dim d（1To 20）As Integer
Private Sub Form_Load（ ）
For i=1To 20'生成20个随机价格
‘（1）
Next i
For i=1To 19
For j=20To i+1Step-1
If d（j）＜d（j-1）Then
t=d（j）：d（j）=d（j-1）：d（j-1）=t
End If
Next j
Next i
For i=1To 20
List1．AddItem Str（i）+Str（d（i））
Next i
End Sub
Private Sub Command1_Click （ ）
Dim baojia As Integer,i as integer,j as integer,t as integer,m as integer
Randomize
List1．Clear
baojia=Val（Text1．Text）
i=1
j=20
Do While i＜=j
‘（2）
If baojia=d（m） Then
Label3．Caption=“猜中 第“+Str（i）+“个“
Exit Do
ElseIf baojia＜d（m） Then
j=m-1
Else
‘（3）
End If
Loop
End Sub组卷：2引用：1难度：0.5 -
17．某数据解密方法描述如下：对输入的密文（由英文字母或阿拉伯数字组成的字符串）进行解密，解密后输出明文。解密时对密文中的每个字符进行如下处理：
（1）将该字符的ASCII码转换成对应的8位二进制；
（2）将对应的8位二进制数进行按位取反（1变0，0变1）；
（3）将产生的8位二进制数循环左移2次；
（4）将最后产生的8位二进制数转换成对应的十六进制数。
例如，密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”，信息加密过程如图b所示。
实现上述功能的VB程序如下：在文本框Text1中输入密文，单击“解密”按钮Command1，程序对密文数据依次进行解密处理，在文本框Text2中显示解密后生成的明文。程序运行界面如图c所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）如果输入密文为小写字母“a”，则解密后得到的明文是。
（2）请在横线处填入合适代码。
Function jiemi（m As String） As String'将4位二进制数转换成相应的十六进制数
Dim k As Integer,i As Integer
Dim str As String
str=“0123456789ABCDEF“
k=0
For i=1To 4
k=k*2+Val（Mid（m,i,1））
Next i
End Function
Private Sub Command1_Click （ ）
Dim ans As String,s As String,ch As String,ret As String
Dim s1As String,s2As String
Dim i As Integer,m As Integer,asc1As Integer,n As Integer
s=Text1．Text
ans=““
For i=1To Len（s）
ch=Mid（s,i,1）'取出第i个字符存入变量ch
asc1=Asc（ch）
ret=““
For m=1To 8'完成解密步骤（1）和步骤（2）
ret=n & ret
asc1=asc1\2
Next m
ret=Mid（ret,3，6）+Mid（ret,1，2）'完成解密步骤（3）
s1=jiemi（Mid（ret,1，4））
ans=ans& s1 & s2'将第i个解密后的字符添加到变量ans的末尾
Next i
Text2．Text=ans
End Sub组卷：2引用：1难度：0.5
