2019-2020学年浙江省金华十校高二（下）期末信息技术试卷
发布：2024/4/20 14:35:0
一、选择题
-
1．下列说法正确的是（ ）
组卷：1引用：1难度：0.7 -
2．简单邮件传输协议（SMTP）用于（ ）
组卷：4引用：2难度：0.7 -
3．使用 UltraEdit 软件观察字符“一带一路 B&R 2019”的内码，部分界面如图所示。下列说法正确的是（ ）
组卷：2引用：1难度：0.5 -
4．使用Word软件编辑某文档，部分界面如图所示，下列说法正确的是（ ）
组卷：4引用：1难度：0.6 -
5．下列关于 Access 的说法正确的是（ ）
组卷：3引用：1难度：0.5
二、非选择题
-
15．星期天，小杰来到动物园游玩，园内共有N个景点，每个景点都有一个标号，标号为1至N．现在只知道每个景点有一条路连接下一个景点。小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2，如下表所示。
则他可以从2号景点出发，最多可以游玩2号4号、5号三个景点，程序运行界面如图所示。景点号 1 2 3 4 5 下一景点号 2 4 5 5 2
程序代码如下：
Private Sub Command1_Click （ ）
Dim a（1 To 100）As Integer,d（1 To 100）As Integer
'数组a存放下一景点号
Dim jd As String,m As String,c As Integer,i As Integer
Dim s As Integer,p As Integer,k As Integer,ans As Integer
jd=Text1．Text+″，″
s=0：c=0
For i=1 To Len（jd）
m=Mid（jd,i,1）
If m＜＞″，″Then
s=s*10+Val（m）
Else
c=c+1：a（c）=s：s=0'含义
End If
Next i
For i=1 To c
d（i）=0
Next
ans=0：k=0
For i=1 Toc'枚举游览起点
If d（i）=0 Then
p=i
Do While d（p）=0
k=k+1：d（p）=k：p=p+1'改错
Loop
y='填空
If y＞ans Then ans=y
k=0
End If
Next i
Text2．Text=Str（ans）
End Sub
（1）若要实现显示“景点连接情况：”的Textl在程序运行时默认为空，则需要将Text1的属性设置为空。
（2）若有7个景点，且每个景点的连接情况为6，3，7，2，7，5，4，则小杰最多可以游玩的景点数是。
（3）程序代码中，“含义”处的“a（c）=s”语句代表的含义是。
（4）程序代码中，“改错”处的语句有误，应改为。
（5）程序代码中，将“填空”处的语句补充完整。组卷：0引用：1难度：0.5 -
16．给定一个序列 a,这个序列由 n 个数组成（n 个数依次保存 在数组 a（1）～a（n）中），现在给定一个整数 p,要求将序列 a的前 p 个数与后 n-p 个数对调，且不改变这 p 个数（和 n-p个数）之间的相对位置。例如长度为 5 的序列 1，2，3，4，5，当 p=2 时重排的结果为 3，4，5，1，2。
我们可以用两种不同的方法来实现这一目的：
方法一：逐个地将数组 a 的后 n-p 个数依次移动到前面去。
数组 a：
↓1 2 3 4 5
↓3 1 2 4 5
↓3 4 1 2 5
方法二：将前 p 个数看作一个区间，后 n-p 个数看作另一个区间，依次将数交换，同时缩小区间的大小；若某一个区间达到末尾，则调整区间的范围，直到两个区间刚好同时达到末尾，即调整结束。3 4 5 1 2
数组 a：
互换并调整区间：第一个区间结束且第二个区间还有元素，调整区间 1 和区间 2 的范围，如图将区间 1 调整为[3，4]，区间 2 调整为[5：5]。
互换并调整区间：第二个区间结束且第一个区间还有元素，仅调整第 1 个区间的起始位置。
互换并结束：两个区间同时到达末尾。
小明依据上面的方法设计了 VB 程序如下：3 4 5 1 2
Dim a（1 To 100），i As Integer,j As Integer,tmp As Integer,p As Integer
Dim start1 As Integer,end1 As Integer,start2 As Integer,end2 As Integer'将序列保存到数组 a中，序列长度保存到 n 中，移动数字的个数保存在 p 中
Private Sub Command2_Click （ ）'用方法一实现
For i=p+1 To n
tmp=a（i）
For j=i To ①Step-1
a（j）=a（j-1）
Next j
②=tmp
Next i
End Sub
Private Sub Command3_Click （ ）'用方法二实现
start1=1：end1=p'第 1 个区间的起始状态
start2=p+1：end2=n'第 2 个区间的起始状态
i=start1：j=start2
Do While ③
i=start1：j=start2
Do While i＜=end1 And j＜=end2
tmp=a（i）：a（i）=a（j）：a（j）=tmp
i=i+1：j=j+1
Loop
If i＜=end1 Then'第 2 个区间结束且第 1 个
区间还有元素
start1=i
ElseIf j＜=end2 Then'第 1 个区间结束且第 2
个区间还有元素
start1=i：④
start2=j
End If
Loop
End Sub
请回答下列问题：
（1）若序列为：9，8，13，22，7，6，5，37，6，p=4 时，使用方法一，则 a（3）的值依次是 13，（用逗号隔开，顺序填写曾存储过的值）。
（2）请在横线处填入合适的代码。
①
②
③
④组卷：0引用：2难度：0.5
