2016-2017学年浙江省金华市高三(上)期末信息技术试卷
发布:2024/4/20 14:35:0
一、选择题(共12小题,每小题2分,满分24分)
-
1.下列关于信息和信息技术的说法正确的是( )
组卷:26引用:4难度:0.9 -
2.下列多媒体格式中,不属于多媒体数据压缩标准的是( )
组卷:24引用:5难度:0.9 -
3.停车场入口通过摄像头拍摄驶入汽车的车牌,使用智能识别系统识别车牌,并将车牌号存入数据库.其中的车牌识别技术属于( )
组卷:10引用:5难度:0.7 -
4.某网站用户注册界面如图所示,用户信息相关的数据库使用Access设计,下列说法不正确的是( )
组卷:8引用:4难度:0.7 -
5.某算法的部分流程图如图所示,执行这部分流程图后,变量k的值为( )
组卷:3引用:1难度:0.7
二、解答题(共5小题,满分26分)
-
16.小朋友拍照
有来自K(1<=K<=20)个不同国家的N(1<=N<=100)个小朋友排成一行准备拍照.国籍用数字1,2,3…N表示,每个小朋友的国籍依次存入数组a(1)到a(K).
由于小朋友太多,没有办法全部被拍入.摄像师决定拍摄一段连续区间内的小朋友,这个区间内每种国籍的小朋友至少要有1人,求满足要求的最小区间长度.
例如有10个小朋友,5种国籍,从左到右排列.国籍编号依次是2,1,2,4,3,3,5,5,3,5,则最小的一段包含所有5种国籍的区间是从第2个到第7个小朋友,区间长度为6.
算法解析:区间的长度至少为K(国籍的数量),最大为N(小朋友的数量).我们可以通过二分K到N之间的求得最小区间长度.
实现上述功能的VB代码如下,但加框处代码有错,请改正.
Dim a(1 To 100)As Integer'依次存储为1到100的小朋友的国籍编号
Dim K As Integer
Dim N As Integer
Private Sub Form_Load( )'窗体加载,生成数据
'产生N的值,表示人数
'产生K的值,表示国籍种数
'产生编号为1到N的小朋友的国籍编号,并存储在数组a中
'代码略
End Sub
Private Sub Command1_Click( )'使用二分的思想计算最小区间
Dim M As Integer
i=K:j=N'答案的范围为K到N,即最少K,最多N个小朋友
Do While i<=j
M=(i+j)\2'二分,求中间值
If pd(M)=True Then'调用Pd函数,判断区间长度为M时,是否包含所有国籍
j=M-1
ans=M'若以M为区间长度可包含所有国籍,更新答案
Else
i='第①处错误
End If
Loop
Text1.Text=Str(ans)
End Sub
Function pd(M As Integer) As Boolean
Dim f(1 To 20)As Integer'f(i)表示国籍为i的小朋友是否包含
Dim t As Integer't用于统计当前区间包含的国籍数量
pd=False
For i=1 To N-M+1'枚举以i为起点的M个小朋友中,各个国籍是否包含
For j=i To i+M-1
f(a(j))=1'等于1,表示国籍为a(j)的小朋友已包含,0表示不包含
Next j
t=0
For j=1 To K'统计已包含的国籍的数量
t='第②处错误
Next j
If t=K Then pd=True:Exit Function'若包含K个国籍,返回True
For j=1 To K'f数组元素重新初始化为0
f(j)=0
Next j
Next i
End Function.组卷:5引用:1难度:0.1 -
17.字符串删除与插入
给定一个长度不超过100位的字符串S,现有以下两种操作指令:
指令1(删除):给出一个字符串S1,在字符串S中找到最左边的一个字符串S1,将其删除,若在S中不存在字符串S1,则字符串S不变.
例如:S=“China is a big family,it is big”S1=“big”
则执行指令1后,S=“China is a family,it is big”
若S1=“small”,则S不变
指令2(插入):给出了一个字符串S2,和一个整数w,将S2插入到S中以w开始的位置.
例如:S=“a big family”S2=“very”w=3
则执行指令2后,S=“a very big family”
注意S中“a”后有一个空格,S2中“y”后有一个空格
实现上述功能的VB程序如下.请在横线处填入合适代码.
Dim S As String
Private Sub Command1_Click( )'单击Command1实现删除指令
Dim S1 As String
S=Text1.Text
S1=Text1.Text
S=del(S1)
Text5.Text=S
End Sub
Private Sub Command2_Click( )'单击Command2实现插入指令
Dim S2 As String,W As Integer
S=Text1.Text
S2=Text2.Text
W=Val(Text4.Text)
S=
Text5.Text=S
End Sub
Function del(S1 As String) As String'在字符串S中查找并删除S1
Dim S3 As String
For i=1 To Len(S)-Len(S1)+1
S3=““'S3表示从位置i开始,取出长度和S1相同的字符串
For i=i To i+Len(S1)-1
S3=S3+Mid(S,j,1)
Next j
If
S=Mid(S,1,i-1)+Mid(S,i+Len(S1),Len(S)-Len(S1)-i+2)
del=S
Exit Function'删除左边的第一个S1后,退出函数,以保证只删除一次
End If
Next i
End Function
Function add(S2 As String,W As Integer) As String
S=Mid(S,1,W-1)+S2+
add=S
End Function.组卷:4引用:1难度:0.1