云南省昭通市镇雄县2022-2023学年高一上学期信息技术期末考试试卷

这是一份云南省昭通市镇雄县2022-2023学年高一上学期信息技术期末考试试卷，共13页。试卷主要包含了选择题，填空题，操作题等内容，欢迎下载使用。

云南省昭通市镇雄县2022-2023学年高一上学期信息技术期末考试试卷
一、选择题
1．“猴子吃桃”问题：一天，一只猴子从树上摘下若干个桃子，当即吃了一半，觉得不过瘾，又吃了一个。第二天这只猴子接着吃剩下的一半，还觉得不过瘾，又吃了一个。以后它每天都吃前一天剩下的一半再多吃一个。到第四天，猴子按规则吃完桃子后，只剩一个桃子。问猴子第一天摘了多少个桃子。下图所示是根据分析所画出的部分流程图。采用倒推法，其中设定M 的初始值为1（第四天吃完后剩下的桃子数），D 为天数（初始值为5）。流程图中相应空缺位置①②处应分别填写（　　）

A．M=M*2+1 D=1 B．M=M*2+1 D0
s = s + A mod 10
A= A\10
Loop
PRINT S
30．VB表达式int(-3.1)的值是　 　。
三、操作题
31．星期天，小龙来到动物园游玩，园内共有N个景点（可在10个以上），每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小龙想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。
景点号
1
2
3
4
5
下一景点号
2
4
5
5
2
则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。

程序代码如下：
Private Sub Command1_Click()Dim a(1 To 100) As Integer, d(1 To 100) As Integer
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
①
Else
c = c + 1: a(c) = s: s = 0
End If
Next i
ans = 0: k = 0
For i = 1 To c
For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p ans Then ans = y
k = 0
Exit Do
End If

Loop
End If
Next i
Text2.Text = Str(ans)
End Sub
（1）要使程序运行时，Form1的BackColor属性值为黑色，以下代码正确的是　 　（单选，填字母）。
A .Private Sub Form_Load()Form1. BackColor = RGB(255, 255,255)
End Sub
B .Private Sub Form_Load()Form1.BackColor = RGB(0, 0, 0)
End Sub
C .Private Sub Form1_Load()orm1.BackColor = RGB(255,255,255)
End Sub
D .Private Sub Form1_Load()Form1.BackColor = RGB(0, 0, 0)
End Sub
（2）若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小龙最多可以游玩的景点数是　 　。
（3）请把划线处的代码补充完整：
①　 　
②　 　
（4）程序加框处代码有错，请改正：　 　。
32．现有一个大小为n*n的平面矩阵（从上到下从左到右编号为1～n*n），矩阵中有诸多障碍物。有两个机器人分别为1号和2号，其中1号位于左上角且面朝右侧，2号位于右下角且面朝左侧。现在机器人需要按照规则进行K轮运动，规则如下：
①1号和2号机器人需要交替运动，即第一轮由1号进行运动，第二轮则由2号进行运动，第三轮由1号进行运动……以此类推直至第K轮。
②每轮运动时，机器人将先判断前方是否可以前进，若无法前进，则不断顺时针旋转90°至可以前进为止，随后前进直至停止，由另一个机器人开始下一轮运动。
③机器人在前进过程中遇到边界、障碍物或者另一个机器人时都将停止。
如图a所示，机器人1号和2号分别位于左上角和右下角，且分别朝向右侧和左侧，黑块表示障碍物，当进行了4轮运动后，状态如图b所示。
编写程序，启动后随机生成矩阵并在List1中输出，其中"#"表示障碍物，"_"表示可以行走的空格子，机器人用数字1和2表示。在文本框Text1中输入轮数K，点击按钮Command1，在列表框List1中输出K轮后的矩阵。程序界面如图c所示。

图a

图b

图c
（1）若在图a的基础上进行6轮运动后，1号机器人所在的位置是　 　（填行列或格子编号均可）。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim a(100) As String, steps(3) As Integer, pos(2) As Integer
Dim towards(2) As Integer, cur As Integer, nex As Integer, K As Integer
Private Sub Form_Load()
'生成矩阵存储在数组a中并输出，代码略
End Sub
Private Sub Command1_Click()
steps(0) = -n: steps(1) = 1: steps(2) = n: steps(3) = -1
pos(1) = 1: towards(1) = 1: pos(2) = n * n: towards(2) = 3
i = 1 : K = Val(Text1.Text)
Do While i