2019-2020學年浙江省寧波市海曙區效實中學高二（下）期中信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，共24分。在每小題給出的四個選項中，只有一個是符合題目要求的。）
-
1．下列有關信息與信息技術的說法，正確的是（ ）
組卷：33引用：2難度：0.7 -
2．下列描述中不屬于人工智能應用范疇的是（ ）
①通過手機操控“無人機”高空拍攝視頻
②醫生在B超可視環境下給病人進行腹腔手術
③通過在線翻譯網站將中文翻譯為英文
④Word軟件中的“自動更正”功能
⑤通過指紋解鎖功能打開手機
⑥在手機上通過手寫的方式輸入文字組卷：5引用：1難度：0.6 -
3．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ）
組卷：4引用：1難度：0.6 -
4．用ACCESS軟件打開數據庫，部分界面如圖，下列說法不正確的是（ ）
組卷：0引用：1難度：0.6 -
5．某算法的部分流程圖如圖所示，執行該流程，以下說法正確的是（ ）組卷：1引用：1難度：0.6
二、非選擇題（本大題共5小題，其中第13題4分，第14題5分，第15題8分，第16題4分，第17題5分，共26分）
-
16．數組a中有20個正整數，以降序排序。在文本框Text1中輸入一個正整數data,尋找數組中是否存在兩個元素之差等于給定的數據。若是則輸出這兩個數（有多對數滿足條件，只輸出最先找到的數對）。否則輸出“notfind”。實現此問題的算法程序如下，加框處代碼有誤，請改正。
①
②
③
PrivateSubCommand1_Click （ ）
Constn=20
Dima（20）AsInteger
DimdataAsInteger,leftAsInteger,rightAsInteger,mAsInteger
DimfAsBoolean
f=True
data=Val（Text1．Text）
'隨機產生符合題意的數組a中各元素并按降序排序
Fori=1Ton-1
①
right=n
DoWhile②
m=（left+right）\2
Ifa（i）-a（m）＞dataThen
right=m-1
ElseIfa（i）-a（m）＜dataThen
left=m+1
Else
Text2．Text=a（i）&a（m）
③
EndIf
Loop
Nexti
Iff=TrueThenText2．Text=″notfind″
EndSub組卷：0引用：1難度：0.3 -
17．數組a中存放著1到20的正整數，要求對其中的元素進行分段排序，在Text2中輸入每段元素的個數，在文本框Text3中顯示每段降序排序后的數據，其中多余的元素不做處理。具體程序實現如圖所示。
實現該功能的VB程序代碼如下，請在橫線處填入合適代碼。
Dima（0To100）AsInteger
Consthigh=16
PrivateSubForm_Load （ ）
Randomize
Fori=1Tohigh
a（i）=Int（Rnd*20）+1
Text1．Text=Text1．Text+Str（a（i））
Nexti
EndSub
PrivateSubCommand1_Click （ ）
DimpAsInteger,qAsInteger,tAsInteger
DimmAsInteger,nAsInteger,kAsInteger
m=Val（Text2．Text）
Fori=1To①
c=““
Forj=1Tom
p=②
q=i*m
k=sort（p,q）
Ifa（k）＜＞a（p）Then
t=a（p）：a（p）=a（k）：a（k）=t
EndIf
c=③
Nextj
Text3．Text=Text3．Text+″″+c
Nexti
EndSub
Functionsort（fAsInteger,gAsInteger）AsInteger
s=f
Fori=fTog
Ifa（i）＞a（s）Then
s=i
EndIf
Nexti
sort=s
EndFunction組卷：0引用：1難度：0.3