2017-2018学年浙江省温州市新力量联盟高二(下)期中信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.小飞同学最近购买了一款华为 B3 智能手环,戴上手环后,手环记录了小飞同学每天的运动步数,并能通 过微信朋友圈与好友分享运动数据,互相点赞。这一案例体现了信息的什么特征?( )
组卷:69引用:2难度:0.9 -
2.通过“百度软件中心”下载“百度网盘 PC 客户端,如图所示:
该软件,下列说法不正确的是( )组卷:17引用:2难度:0.9 -
3.汉字点阵码是一种用黑白两色点阵来表示汉字字形的编码,一个 24×24 点阵字模的存储容量为( )
组卷:30引用:2难度:0.9 -
4.AlphaGo 与李世石的人机围棋大战吸引了全世界的关注,某同学要制作一个关于 AlphaGo 的 PPT 课件用 于展示,他将课件分为“开发团队”、“AlphaGo 简介”、“李世石简介”、“战况分析”、“人工智能”五部分,请问这个过程属于( )
组卷:28引用:3难度:0.7 -
5.小柯使用 Word 字处理软件,在“修订”模式下对某文档进行了修改,修改情况如图所示:
下列说法不正确的是( )组卷:22引用:2难度:0.7
二、非选择题(本大题共5小题,其中第13小题5分,第14小题5分,第15小题7分,第16小题4分,第17小题5分,共26分)
-
16.哥德巴赫 1742 年给欧拉的信中哥德巴赫提出了以下猜想:任一大于 2 的偶数都可写成两个 质数之和。下列 VB 程序的功能即验证哥德巴赫猜想。程序运行时,在文本框 Text1 中输入一个大于 2 的偶 数,单击“证明”按钮 Command1 后,在列表框 List1 中输出所有符合猜想的组合,在标签 Label2 中输出 共有多少个组合。程序运行效果如图所示。
为实现上述功能程序如下,但加框处的代码有误,请改正。Private Sub Command1_Click ( )
Dim n As Integer
Dim i As Integer,c As Integer
n=Val(Text1.Text)
List1.Clear
c=0
If n Mod 2=0Then
For
IfThen
List1.AddItem n &“=“& i &“+“& n-i
c=c+1
End If
Next i
Label2.Caption=“共有“& c &“种组合“
Else
Label2.Caption=“请输入一个大于 2 的偶数“
End If End Sub
Function is Prime(x As Integer) As Boolean
Dim i As Integer
Is Prime=True
For i=2To Int(Sqr(x))
If x Mod i=0Then
Is Prime=False
Exit For
End If
Next i End Function组卷:2引用:1难度:0.5 -
17.猴子选大王的问题:N 只猴子选大王,选举办法如下:从头到尾 1、2、3 报数,凡报 3 的退 出,余下的从尾到头 1、2、3 报数,还是报 3 的退出,依此类推;当剩下只有两只猴子时,不再报数,取 当前报数报 1 的为王。如五只猴子报数,则第一轮顺序为第 12345,第 3 只出列,第二轮顺序为 5421,第 2
只出列;第三轮顺序为 145,第 5 只出列,这时第 1 只猴子报数为 1,则第 1 只猴子为猴王。若想当猴王,请问最初占据什么位置?在 Text1 文本框中输入参选大王的猴子总数量,单击“猴王的位置”,在 Label2 标 签上显猴王最初的位置。VB 程序运行界面如下:
实现上述功能的 VB 程序如下:
(1)如果只有 10 只猴子参加本次选大王,则猴王最初的位置为:
(2)实现上述功能的 VB 程序如下,请在横线处填入合适代码。
Private Sub Command1_Click ( )
Dim n,x,m,s As Integer'假设参与的猴子数量不超过 5000
Dim a(1To 5000)As Integer'用数组 a 存储每只猴子的报数,值为 3 时视同出列
Dim t,y As Boolean't 用于循环,y 为 true 时表示报数顺序是从头到尾,y 为 false 时报数顺序 是从尾到头
n=Val(Text1.Text)
x=1'x 为每次猴子的位置
m=1'm 为报数的 1、2、3
y=True
t=True
Do While t
'该位置的猴子是否已经出列
If a(x)<>3Then'没有出列的,则报数
a(x)=m
①
If m>3Then m=1
Else'每次有猴子报 3 出列之后,检查是否已经只有两只猴子没有出列
s=0
For i=1To n
If②
Next i
If s<3Then Exit Do
End If
If y=True Then x=x+1Else x=x-1
'检查报数是在递增,还是递减,y 为 true 时递增
'报到最后一次猴子后
If x>n Then y=False:m=1:x=n
'报到第一次猴子后
If x=0Then y=True:m=1:
Loop
'输出猴王的位置
For i=1To n
③
If a(i)=1Then Label2.Caption=“猴王的位置为第“+Str(i)+“只“
Next i
End Sub组卷:0引用:1难度:0.9