2020年1月浙江省普通高校招生选考信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(共12小题,每小题2分,满分24分)
-
1.下列关于信息处理的描述,错误的是( )
组卷:21引用:7难度:0.7 -
2.下列应用中,目前运用人工智能技术不能实现的是( )
组卷:29引用:7难度:0.5 -
3.用Access软件设计某学生管理信息系统的数据库,其中“学生表”中需要存储如图所示的数据,学号的前4位是入学年份。下列关于该学生管理信息系统的描述,错误的是( )
学号 姓名 性别 出生年份 户籍所在地 注册日期 是否住校 201802001 张立 男 2003 杭州市江干区 2018/8/31 是 201901001 李红 女 2004 杭州市西湖区 2019/9/1 否 … … … … … … … 组卷:24引用:3难度:0.6 -
4.下列关于计算机信息编码的描述,正确的是( )
组卷:44引用:6难度:0.7 -
5.用Photoshop软件制作“马到成功”作品,在“文字”图层输入文字“马到成功”,进行相关编辑后的文字效果如图所示。下列描述正确的是( )
组卷:18引用:3难度:0.3
二、解答题(共4小题,满分26分)
-
15.甲乙双方进行一场球类比赛,一局计分的规则是:赢1球得1分,用“1”表示;输一分球失1分,用“0”表示.当任一方得分大于等于6分,且领先对方2分及以上,领先方赢一局.如甲选手一局比赛数据为“101110101”,表示甲选手得6分失3分,局比分6:3.
小王用一个字符串记录了甲选手多局比赛数据,其中有一处错误,位于连续多个“0”的最后一个.为了找出错误,小王的处理方法如图a所示,对示例中的疑似错误位置6和20分别修改数据,并统计每局比分.他编写了VB程序,功能如下:在窗体Form1的文本框Text1中输入记录数据,单击“分析”按钮Command1,在列表框List1中输出修改位置以及修改后每局的比分.程序运行界面如图b所示.
(1)下列对象中有Text属性的是
(2)实现上述功能的VB程序如下,请在横线处填入合适的代码.
(3)程序中加框处代码有错,请改正.组卷:7引用:1难度:0.4 -
16.某省举办大型活动,面向省内城市招募有志愿者服务工作经历的志愿者,每个志愿者的报名数据包含城市序号、姓名(字母缩写)和参加志愿者服务的次数。现需要整理报名数据,要求是:先按城市序号从小到大排列;然后,同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求,编写一个VB程序,功能如下:在列表框List1中显示整理前的数据,单击“整理”按钮Command1,整理结果显示在列表框List2中,程序运行界面如图所示。
(1)将数组元素q(1)到q(200)分为10段,如果每段恰好包含20个元素,采用选择排序算法分别对每段中的元素进行排序,整个排序过程中,数组元素之间的比较次数是
(2)请在横线处填入合适的代码。
Const n=200'报名总人数
Const nc=10'城市数
Dim city(1 To n)As Integer,pname(1 To n)As String,times(1 To n)As Integer
Dim b(1 To nc)As Integer'存储每个城市的报名人数
Dim c(1 To nc)As Integer
Dim q(1 To n)as Integer
Private Sub Form_Load( )
'本过程读取城市序号、姓名和参加次数的数据分别存储在数组city、pname和times中,
'并在List1中显示,代码略
End Sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer
For i=1 To nc
b(i)=0
Next i
For i=1 Ton
b(k)=b(k)+1
Next i
k=1
For i=1 To nc
c(i)=k
k=k+b(i)
Next i
For i=1 To n
k=city(i)
c(k)=c(k)+1
Next i
pos=1
For i=1 To nc'对各城市报名数据按参加志愿服务的次数进行排序
For j=pos To pos+b(i)-2
k=fp(j,pos+b(i)-1)
t=q(k):q(k)=q(j):q(j)=t
Next j
pos=pos+b(i)
Next i
For i=1 To n
List2.AddItem““&city(q(i))&““&pname(q(i))&““×(q(i))
Next i
End Sub
Function fp(head As Integer,tail As Integer)As Integer
Dim i As Integer,k As Integer
k=head
For i=
If times(q(i))>times(q(k))Then k=i
Next i
fp=k
End Function组卷:7引用:1难度:0.3