2018-2019学年浙江省稽阳联谊学校高三(上)月考信息技术试卷(10月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分,每小题列出的四个备选项中只有一个是符合题目要求的,不选、错选、多选均不得分.)
-
1.下列有关信息的说法,不正确的是( )
组卷:9引用:1难度:0.6 -
2.下列不属于网络协议的是( )
组卷:3引用:3难度:0.7 -
3.下列应用中,没有体现人工智能技术的有( )
①家用电饭锅的预约功能
②微信支付时采用指纹支付
③半导体集成电路技术
④最新研发的一项可穿戴技术,用来帮助用户保持身材,矫正坐姿和行走姿态
⑤在《我是未来》节目中能和人智能对话的“微软小冰”虚拟机器主持人组卷:12引用:2难度:0.7 -
4.使用Access软件打开某个数据库文件,部分界面如图所示。下列说法正确的是( )
组卷:7引用:1难度:0.3 -
5.使用UltraEdit软件查看字符内码,部分界面如图所示,以下说法正确的是( )
组卷:10引用:1难度:0.6
二、非选择题(本大题共5小题,其中第13题小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
-
16.有一组正整数,基于冒泡排序对其中的数进行升序排序。排序后奇数在前,偶数在后。排序示例如下:
排序前 78 30 64 39 49 4 8 32 18 32 排序后 39 49 83 4 8 18 30 32 64 78
Const n=10
Dim d(1To n) As Integer
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,t As Integer
'读取一组正整数,存储在数组d中,代码略
i=1
Do While i<=n-1
For j=n To i+1Step-1
If d(j) Mod 2=d(j-1)Mod 2Then
IfThen'(1)
t=d(j):d(j)=d(j-1):d(j-1)=t
End If(2)
t=d(j):d(j)=d(j-1):d(j-1)=t
End If
Next j
i=i+1
Loop
'依次输出排序后的数据,代码略
End Sub组卷:17引用:1难度:0.4 -
17.计算机的基本功能是计算,信息加工处理本质上都是通过计算完成的。现有一图象模糊处理的算法,以10*10像素图象的模糊处理为例,具体算法如下:
(1)各像素点的颜色信息值(介于0至255之间的一个正整数),存储至数组a中。
(2)给定模糊处理的模糊中心位置p和模糊半径r(r>1),中心位置p即为半径为1的区域,
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时,该模糊中心在数阵中对应位置为第4行第6列;
②根据中心点和模糊半径确定模糊处理的像素点的范围。
(3)依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为:最外侧的像素点颜色信息不变,中间各像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值。
程序运行时,在文本框Text1中输入模糊的中心点p,在文本框Text2中输入模糊的半径r,窗体加载,通过列表框List1输出图象模糊处理前的信息,单击命令按钮Command1后通过列表框List2输出模糊后的图象信息。程序运行效果如图b所示。相应的模糊中心位置由椭圆圈注,中间各像素点由矩形框圈注
实现上述功能的VB程序如下。请回答下列问题:
(1)若以a(48)为模糊中心,布置成如第17题图a所示数阵后模糊中心处于数阵的第 行。
(2)请在横线处填入合适的代码。
Const n=10
Dim a(1To n*n) As Integer'介于0至255之间的值,存储10*10图象像素点的颜色信息
Private Sub Form_Load ( )
'读取100个正整数,存储在数组a中以表示10*10图片的像素点颜色信息,代码略。
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List1中,代码略。
End Sub
Private Sub Command1_Click ( )
Dim r As Integer,p As Integer
Dim i As Integer,j As Integer,k As Integer
p=Val(Text1.Text):r=Val(Text2.Text)
①
i=1
Do While j>n
j=j-n
i=i+1
Loop
'确定模糊处理的范围,处理范围的起始行,结束行,起始列,结束列保存到i1,i2,j1,j2中,代码略
For i=i1+1To i2-1'中间像素点的模糊处理
For j=j1+1To j2-1
②
a(k)=ave(k)
Next j
Next i
'并按右对齐方式将该图片的各像素点颜色信息输出至列表框List2中,代码略。
End Sub
Function ave(k As Integer) As Integer
ave=③
End Function组卷:2引用:1难度:0.4