2020-2021学年浙江省高三(上)联考信息技术试卷(12月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题0分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息与信息处理的说法,错误的是( )
组卷:2引用:1难度:0.6 -
2.下列应用中,没有体现人工智能技术的是( )
组卷:0引用:1难度:0.6 -
3.用Access软件设计某图书管理信息系统的数据库,其中“图书登记表”中需要存储如表所示的数据,数据库字段名与表中标题一致。
序号 图书编号 书名 作者 入库日期 借阅状态 27 BK001113 安娜•卡列尼娜 列夫•托尔斯泰 2014-07-31 是 28 BK003839 城南旧事 林海音 2016-08-01 否 29 BK002028 时间简史 霍金 2020-08-02 是 … … … … … … 组卷:9引用:3难度:0.3 -
4.要表示100种不同的信息,需要的二进制位数至少为( )
组卷:4引用:2难度:0.5 -
5.用Photoshop软件制作“足球”宣传海报,如图所示,下列说法正确的是( )
组卷:2引用:1难度:0.4
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.某网站注册密码需要符合以下两点条件:①密码不少于4位字符组成;②必须同时包含4种字符,大写字母“A-Z”,小写字母“a-2”,数字“0-9”,特殊符号“!@#%&*”,方了方便批量注册,小迪同学编写了自动生成密码的VB程序,程序运行界面如a所示,当在文本框Text1中输入需生成密码长度,点击“生成密码”按钮(Command1),在文本框Text2中输出符合要求的密码串。<imgsrc=“image13.png“style=“vertical-align:middle;border:0“/>
(1)下列对象不具有Caption属性的是___________(单选,填字母:A.Command1/B.Form1/C.Text1/D.Label1)
(2)实现上述功能的VB程序如下,请在横线处填入合适代码。①
(3)程序代码中的加框处代码有误,请改正。改正:
PrivateSubCommand1Click
Randomize
n=Val(Text1.Text)
a(0)=0:a(1)=26:a(2)=52:a(3)=62:a(4)=70'记录每种符号的结束位置
s=““
For i=1 To 4
b(i)=0'b数组记录某类符号是否使用
Next i
sum=4'当前未使用字符类型,初始为4种
Do While Len(s)+sum<n
k=①'随机选择一个密码序号
s=s+Mid(key,k,1)
i=1
Do While k>=a(i)
i=i+1
Loop
b(i)=1
sum=4-b(1)-b(2)-b(3)-b(4)
Loop
'生成剩余未出现元素密码,保证4种符号均有出现
For i=1 To sum
j=Int(Rnd*4)+1
Do While(②
j=j Mod 4+1
Loop
b(j)=1
k=Int(Rnd*(a(j)-a(j-1)))+a(j-1)+1
s=s+Mid(key,k,1)
Next i
Text2.Text=s
End Sub
(4)如果文本框Text1中输入值2,文本框Text2中输出字符长度为组卷:0引用:1难度:0.3 -
16.现需要对某企业大型招聘活动面试成绩进行排名,面试数据包含专业编号(整数,顺序编号)、专业名称、姓名(字母编写)和面试分。整理面试数据的要求是:先按专业编号从小到大排列,然后,同专业的面试者按面试成绩从大到小排列(同分同名次)。按上述要求,编写一个VB程序,功能如下:在列表Listi1中显示整理前的数据,单击“整理”按钮Command1,整理结果显示在列表框List2中,程序运行界面如图所示。
(1)n个元素两两比较大小确定其位次,需要比较的次数是
(2)请在横线处填入合适的代码。
Const n=200'报名人数
Const nz=10'专业数
Dim zybh(1 To n)As Integer,zyname(1 Ton)As String,sname(1 To n)As String,
zymark(1 To n)As Integer
Dim b(1 To nz)As Integer'存储每个专业的人数
Dim c(1 To nz)As Integer
Dim d(1 To n)As Integer
Dim q(1 To n)As Integer
Private Sub Form_Load
'本过程读取专业编号、专业名称、姓名和面试分的数据分别存储在数组zybh,zyname,sname,zymark中,并在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 nz
b(i)=0
Next i
For i=1 To n
d(i)=0:q(i)=0
Next i
For i=1To n
k=zybh(i)
b(k)=b(k)+1
Next i
k=1
For i=1 To nz
c(i)=k
①
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)=zybh(j)And zymark(i)<>zymark(j)Then
If②
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While③
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.Addltem““& zybh(q(i)) &““& zyname(q(i)) &.““& sname(q(i)) &““& zymark(q(i)) &““& d(q(i)+1
Next i
End Sub组卷:0引用:1难度:0.3