2022-2023学年云南省昭通市镇雄一中高一(上)期末信息技术试卷
发布:2025/1/7 0:30:2
一、选择题
-
1.“猴子吃桃“问题:一天,有一只猴子从树上摘下若干个桃子,当即吃了一半,觉得不过瘾,又吃了一个.第二天小猴子接着吃剩下的一半,还觉得不过瘾,又吃了一个.以后每天都是吃前一天剩下的一半并再吃多一个.到第四天,猴子按规则吃完桃子后,只剩一个桃子.问小猴子第一天摘了多少个桃子.右图所示是根据分析所画出的部分流程图.采用倒推算法,其中设定M的初始值为1(第四天吃完后剩下的桃子数),D为天数(初始值为5).请在下面的①和②(对应流程图中相应空缺位置)填入相应选项.①、②分别为( )
组卷:3引用:2难度:0.7 -
2.以下术语中表示文件传输协议的是( )
组卷:0引用:2难度:0.6 -
3.最新消息:全国信息安全标准化技术委员会日前明确要求,网联汽车采集数据不得在境外存储。这说明( )
组卷:3引用:3难度:0.7 -
4.随着现代信息技术的发展,出现了很多新型的电子产品,如智能眼镜、智能手表等等.下列说法中,不符合信息技术发展趋势的是( )
组卷:9引用:5难度:0.9 -
5.有如下VB程序段:
For i=2 to 5
For j=i to 5
If j mod i=0 then a(j)=a(j)+1
Next j
Next i
For i=1 to 5
If a (i)<>1 then s=str(i)+s
Next i
若数组a 的初始值都为0,则运行该程序段后,s的值为( )组卷:0引用:1难度:0.4 -
6.冯诺依曼型体系结构的计算机中引进了两个重要的概念,它们是( )
组卷:3引用:2难度:0.6 -
7.某单位的域名为:jyeoo.jye.ai,其网址(URL)的完整写法是( )
组卷:2引用:1难度:0.7 -
8.李明通过电子邮件给远在美国的父亲成功发送了一张贺卡,在他父亲没有接收邮件之前,该电子邮件将( )
组卷:3引用:2难度:0.5 -
9.二进制数11101与十进制数2相加的结果是( )
组卷:0引用:1难度:0.6 -
10.下列关于Excel的叙述,错误的是( )
组卷:14引用:11难度:0.9
三、操作题
-
31.星期天,小龙来到动物园游玩,园内共有N个景点(可在10个以上),每个景点都有一个标号,标号为1至N.现在只知道每个景点有一条路连接下一个景点。小龙想知道,根据这些道路信息,从其中一个景点出发,最后再回到出发景点,最多能游玩多少个景点。
例如,共有N=5个景点,每个景点连接的下一个景点分别是2,4,5,5,2。景点号 1 2 3 4 5 下一景点号 2 4 5 5 2
程序代码如下:
PrivateSubCommand1_Click ( )
Dima(1To100)AsInteger,d(1To100)AsInteger
DimjdAsString,mAsString,cAsInteger,iAsInteger
DimsAsInteger,pAsInteger,kAsInteger,ansAsInteger
jd=Text1.Text+″,″
s=0:c=0
Fori=1ToLen(jd)
m=Mid(jd,i,1)
Ifm<>″,″Then
①
Else
c=c+1:a(c)=s:s=0
EndIf
Nexti
ans=0:k=0
Fori=1Toc
Fork=1Toc
d(k)=0
Nextk
Ifd(i)=0Then
p=i
DoWhilep<=c
Ifd(p)=0Then
k=k+1:d(p)=k
Else
②
Ify>ansThenans=y
k=0
ExitDo
EndIf
Loop
EndIf
Nexti
Text2.Text=Str(ans)
EndSub
(1)要使程序运行时,Form1的BackColor属性值为黑色,以下代码正确的是A.PrivateSubForm_Load ( )
Form1.BackColor=RGB(255,255,255)
EndSubB.PrivateSubForm_Load ( )
Form1.BackColor=RGB(0,0,0)
EndSubC.PrivateSubForm1_Load ( )
orm1.BackColor=RGB(255,255,255)
EndSubD.PrivateSubForm1_Load ( )
Form1.BackColor=RGB(0,0,0)
EndSub
(3)请把横线处的代码补充完整:
①
②
(4)程序加框处代码有错,请改正:组卷:2引用:2难度:0.2 -
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所示。
(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<=K
cur=(i-1)Mod 2+1
nex=GetNext(pos(cur),towards(cur))
Do While Check(nex)
pos(cur)=nex
nex=GetNext(pos(cur),towards(cur))
Loop
nex=GetNext(pos(cur),towards(cur))
Do While Not Check(nex)
towards(cur)=______
nex=GetNext(pos(cur),towards(cur))
Loop
i=i+1
Loop
'输出矩阵,代码略
End Sub
Function Check(x As Integer) As Boolean
Check=x<>0 And a(x)<>“#“And _____
End Function
Function GetNext(x,t) As Integer
GetNext=x+steps(t)
If x>=1 And x<=n And t=0 Then GetNext=0
If x>(n-1)*n And x<=n*n And t=2 Then GetNext=0
If _____ Then GetNext=0
If x Mod n=0 And t=1 Then GetNext=0
End Function组卷:1引用:1难度:0.3