2018-2019学年浙江省之江联盟高二（下）月考信息技术试卷（5月份）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分）
-
1．下列有关信息的说法正确的是（ ）
组卷：17引用：1难度：0.5 -
2．下列关于协议说法正确的是（ ）
组卷：0引用：1难度：0.5 -
3．小明制作了电子黑板报送小王老师审阅，小王老师对其word稿进行某些操作后，部分稿件界面如图所示，下列说法正确的是（ ）
组卷：12引用：1难度：0.4 -
4．小明将 Excel中的数据导入到Access中后需要对数据进行处理，部分操作界面如图所示，则下列说法正确的是（ ）
组卷：7引用：1难度：0.6 -
5．使用 ultraedit软件观察字符内码部分截图如图，下列说法正确的是（ ）
组卷：10引用：1难度：0.5
二、非选择题（本大題共4小题，第13题共4分，第14题共8分，第15题共7分，第16题共7分）
-
15．ROI-13（回转13位）是一种简易的替换式密码，编码解码规则相同，针对英文字母，仅仅只需要检查字母顺序并用13位后的对应字母取代它，超过时则重新绕回26个英文字母开头即可。即A换成N、B换成O，以此类推到M换成Z，然后序列反转；N换成A、O换成B……
小明决定以ROT-13为基础制定新的ROT-n,即每次回转不是13位，而是n位。因此他引入了11位数字密钥和字符位置来计算n的值，并扩大加密范围，使得大小写字母和数字都能加密，从而达到加密效果增强的目标。具体规则如下：
（1）字符在奇数位置上n的值即当前对应密钥值，偶数位置上n的值为当前段密钥中已经出现的所有数字之和。
（2）数字字符在“0”到“9”之间回转，即超过“9”部分返回“0”开始继续计算：大写字母在“A”到“Z”范围内回转，小写字母在“a”到“z”范围内回转，其它字符不变。
程序代码如下
Private Sub Command1_Click）
Dim i,z,m,js As Integer
im s,c,h,t As String
Const my=“14159265358”
Text2．Text=“”
S=Text1．Text
z=1
For i=1 To Len（s）
①
If z=12 Then z=1：js=0
m=Val（Mid（my,z,1））
js=js+m
If ②Then n=js Else n=m
If c＞=“0“And c＜=“9“Then
h=CStr（（Val（c）+n）Mod 10）
Elself c＞=“A“And c＜=“Z“Or c＞=“a”And c＜=“z“Then
t=Chr（Asc（c）+n Mod 26）
If c＞=“A“And c＜=“Z“Then
If Not （t＞=“A“And t＜=“Z“）Then h=Chr（Asc（t）-26）Else h=t
Else
If Asc（c）+n Mod 26＞122 Then h=Chr（（Asc（c）+n Mod 26）-26）Else h=t
End If
Else
h=c
End If
Text2．Text=Text2．Text+h
③
Next i
End Sub
请回答下列问题
（1）解密过程为加密过程的逆运算，即由密文字符向前推导n位寻找原字符，现已知密钥为123，密文“WEjpq j”（无双引号）对应的原文是。
（2）程序功能实现则代码中划线部分请填入合适代码
①处代码；②处代码；③处代码。组卷：0引用：1难度：0.4 -
16． 小明学习过VB后决定制作一个“幸运的数字”小程序，程序设计如下：
打开程序后随机生成10个不重复的整数，整数范围在50到100之间（含50和100），数据存放在数组a中并在列表框 list1中显示。并按如下规则进行处理：
（1）单击“去除”按钮一次会生成一个随机整数n,并去除一个数组a元素，随机整数n范围在1到150之间（含1和150），被去除的数组元素是当次所有数组元素中与n形成的差绝对值最小的一个数组元素。如有2个数组元素与n的差相等，则去除值较小的数组元素。
（2）每次生成的随机数n显示在列表框list2中，去除的数组a元素显示在列表框list3中。直至最后剩下最后一个数组元素即为“幸运数字“。
（3）单击“重置”按钮，重新生成10个不重复的随机整数，存放在列表框list1中，并清空列表框list2、list3。
程序界面及代码如下：
Dim a（1 To 10）As Integer
Dim b（1 To 10）As Integer
Dim k As Integer
Private Sub Command1_Click（ ）
重置按钮，重新生成10个不重复的范围在[50，100]的随机整数，代码略
End sub
Private Sub Form_Load（ ）
生成10个不重复的范围在[50，100]的随机整数代码略
End Sub
Private Sub Cd1_Click（ ）
Dim m,n,t,i,j,w As Integer
If k=9 Then
Label4．Caption=Str（a（1））
Else
Randomize
n=lnt（Rnd*150）+1
For i=1 To 9
For j=1 To ①
If a（j）＞a（j+1）Then t=a（j）：a（j）=a（j+1）：（ja+1）=t
Next j
Next i
If n＞a（10）Then
t=a（10-k）：w=10-k
Elself n＜a（1）Then
t=a（1）：w=1
Else
i=1：j=10-k
Do while i＜=j
m=lnt（（i+j）/2）
If n=a（m） Then
Exit Do
Elself n＜a（m）Then
j=m-1
Else
i=m+1
End if
Loop
If ②Then
t=a（m）：w=m
Elself Abs（a（i）-n）＞Abs（a（j）-n）Then
t=a（j）：w=j
Else
t=a（i）：w=i
End If
End If
List2．Addltem Str（n）
list3．Addltem Str（t）
k=k+1
For i=w To 10-k
③
Next i
End If
End Sub
请回答下列问题
（1）“去除”按钮对象名是
（2）程序功能想要实现，在代码中横线处填入合适代码
①处代码；②处代码；③处代码。组卷：1引用：1难度：0.5
