2016-2017學(xué)年浙江省金華市東陽中學(xué)高二（下）入學(xué)信息技術(shù)試卷（2月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關(guān)于信息和信息技術(shù)的說法正確的是（ ）
組卷：26引用：4難度：0.9 -
2．下列多媒體格式中，不屬于多媒體數(shù)據(jù)壓縮標準的是（ ）
組卷：24引用：5難度：0.9 -
3．停車場入口通過攝像頭拍攝駛?cè)肫嚨能嚺疲褂弥悄茏R別系統(tǒng)識別車牌，并將車牌號存入數(shù)據(jù)庫．其中的車牌識別技術(shù)屬于（ ）
組卷：10引用：5難度：0.7 -
4．某網(wǎng)站用戶注冊界面如圖所示，用戶信息相關(guān)的數(shù)據(jù)庫使用Access設(shè)計，下列說法不正確的是（ ）組卷：8引用：4難度：0.7 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程圖后，變量k的值為（ ）
組卷：3引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小朋友拍照：有來自K（1＜=K＜=20）個不同國家的N（1＜=N＜=100）個小朋友排成一行準備拍照。國籍用數(shù)字1，2，3……K表示，每個小朋友的國籍依次存入數(shù)組a（1）到a（N）。由于小朋友太多，沒有辦法全部被拍入。攝像師決定拍攝一段連續(xù)區(qū)間內(nèi)的小朋友，這個區(qū)間內(nèi)每種國籍的小朋友至少要有1個，求滿足要求的最小區(qū)間長度。
例如有10個小朋友，5種國籍，從左到右排列，國籍編號依次是2，1，2，4，3，3，5，5，3，5，則最小的一段包含所有5種國籍的區(qū)間是從第2個到第7個小朋友，區(qū)間長度為6。
算法解析：區(qū)間的長度至少為K（國籍的數(shù)量），最大為N（小朋友的數(shù)量）。我們可以通過二分K到N之間的求得最小區(qū)間長度。
實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。
Dim a（1 To 100）As Integer'依次存儲為1到100的小朋友的國籍編號
Dim K As Integer
Dim N As Integer
Private Sub Form_Load （ ）'窗體加載，生成數(shù)據(jù)
'產(chǎn)生N的值，表示人數(shù)
'產(chǎn)生K的值，表示國籍種數(shù)
'產(chǎn)生編號為1到N的小朋友的國籍編號，并存儲在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click （ ）'使用二分的思想計算最小區(qū)間
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'調(diào)用Pd函數(shù)，判斷區(qū)間長度為M時，是否包含所有國籍
j=M-1
ans=M'若以M為區(qū)間長度可包含所有國籍，更新答案
M-1
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用于統(tǒng)計當(dāng)前區(qū)間包含的國籍?dāng)?shù)量
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
t+j
For j=1 To K'統(tǒng)計已包含的國籍的數(shù)量
t=
'第②處錯誤
Next j
If t=K Then pd=True：Exit Function'若包含K個國籍，返回True
For j=1 To K'f數(shù)組元素重新初始化為0
f（j）=0
Next j
Next i
End Function組卷：2引用：1難度：0.5 -
17．字符串刪除與插入：給定一個長度不超過100位的字符串S，現(xiàn)有以下兩種操作指令：
指令1（刪除）：給出一個字符串S1，在字符串S中找到最左邊的一個字符串S1，將其刪除，若在S中不存在字符串S1，則字符串S不變。
例如：S=“China is a big family,it is big”S1=“big”
則執(zhí)行指令1后，S=“China is a family,it is big”
若S1=“small”，則S不變。
指令2（插入）：給出一個字符串S2，和一個整數(shù)w,將S2插入到S中以w開始的位置。
例如：S=“a big family”S2=“very”w=3
則執(zhí)行指令2后，S=“a very big family”
注意S中“a”后有一個空格，S2中“y”后有一個空格
實現(xiàn)上述功能的VB程序如下。請在橫線處填入合適代碼。
Dim S As String
Private Sub Command1_Click （ ）’單擊Command1實現(xiàn)刪除指令
Dim S1 As String
S=Text1．Text
S1=Text2．Text
S=del（S1）
Text5．Text=S
End Sub
Private Sub Command2_Click （ ）’單擊Command2實現(xiàn)插入指令
Dim S2 As String,W As Integer
S=Text1．Text
S2=Text2．Text
W=Val（Text4．Text）
S=（1）’調(diào)用函數(shù)，實現(xiàn)插入指令
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 j=i To i+Len（S1）-1
S3=S3+Mid（S，j,1）
Next j
If （2）Then’如果找到S1，則將S1刪除
S=Mid（S，1，i-1）+Mid（S，i+Len（S1），Len（S）-Len（S1）-i+2）
del=S
Exit Function’刪除左邊的第一個S1后，退出函數(shù)，以保證只刪除一次
End If
Next i
End Function
Function add（S2 As String,W As Integer） As String
S=Mid（S，1，W-1）+S2+（3）’將S2插入W開始的位置
add=S
End Function組卷：2引用：1難度：0.5