2020年浙江省杭州高級中學高考信息技術模擬試卷(5月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個備選項中只有一個是符合題目要求的,不選、錯選、多選均不得分.)
-
1.下列說法正確的是( )
組卷:3難度:0.6 -
2.某天小王老師從商場開車回學校的途中發(fā)生了以下幾件事:
①在開出商場時,出口處的停車閘識別了她的車牌號,并顯示相應的停車費。
②她使用微信掃描二維碼的方式支付停車費
③在出發(fā)前,她不熟悉回去的路,于是用百度地圖上搜索了回程路線
④在行車途中她想使用手機,喊了一聲“嘿,Siri”,手機助手回應“你好,我在這兒”
⑤紅綠燈停車時,她聽到廣播里一首歌,不知道叫什么歌名,于是使用“網易云音樂”軟件中“聽歌識曲”的功能。5秒鐘后,軟件內顯示出了該歌曲的名稱
⑥開到校門口,門衛(wèi)大伯看到她的車,使用紅外線傳感遙控器,將學校的升降閘門打開,她安全地回到了學校。
上述過程中,哪幾件事情運用到了人工智能技術( ?。?/h2>組卷:3引用:1難度:0.6 -
3.使用Access軟件打開數據庫,部分界面如圖所示。下列說法正確的是( )
組卷:3難度:0.5 -
4.下列關于計算機信息編碼的描述,正確的是( )
組卷:8引用:1難度:0.7 -
5.使用Photoshop軟件制作“抗疫”宣傳圖片,部分界面如圖所示,下列說法正確的是( )
組卷:3引用:1難度:0.5
二、非選擇題(本大題共4小題,第13小題4分,第14小題8分,第15小題7分,第16小題7分,共26分)
-
15.某程序功能如下:將自然數從1到100按某種方式排列起來,單擊“輸出”按鈕Command1,在列表框List1中顯示排列后的數表,運行結果如圖所示。
1)下列對象中不具有Caption屬性的是
2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。
3)程序中加框處代碼有錯,請改正。
4)PrivateSubCommand1_Click ( ?。?br />Constn=10
DimiAsInteger,jAsInteger
Dimd(0To100)AsInteger
Fori=1Ton
Forj=1Ton
Ifi=1Then
d(j)=j^2
Else
Ifj=1Then
①
d((i-1)*n+j)=d((i-2)*n+j)-1
Else
②
EndIf
EndIf
Nextj
Nexti
‘在列表框List1中按每行10個輸出數組d的所有元素,代碼略
EndSub組卷:2引用:1難度:0.4 -
16.某地為各個村之間建立灌溉管道,現需實現用最短的管道距離使得所有村莊可以連通。如圖a所示,[V1,V2,V3,V4,V5]每個節(jié)點表示村莊,兩個節(jié)點之間的數值表示兩個村莊之間的邊距離。
算法思路如下:
①首先按邊距離升序排序;
②找到邊距離最小值1,以及相應的兩個節(jié)點V1和V3;
③以V1或V3作為起點,搜尋連接新節(jié)點且距離最小的邊,發(fā)現(V1,V4)邊最小為4;
④以V1、V3、V4作為起點,搜尋連接新節(jié)點且距離最小的邊,發(fā)現(V4,V5)邊最小為2;
⑤以V1、V3、V4、V5作為起點,搜尋連接新節(jié)點且距離最小的邊,發(fā)現(V2,V5)邊最小為3;因此可知,連通5個村莊的最短管道距離是1+4+2+3=10,效果如圖b所示。
現設計了如下VB程序,界面如圖c所示,請回答下列問題:
(1)V2到V5的邊距離若為6,則連通5個村莊的最短管道距離是
(2)請在橫線處填入合適的代碼。
Constn=5'村莊數
Constm=8'管道線路數
DimpointAB(1To2*m)AsInteger'存儲連接的兩個村莊節(jié)點
Dimlength(1Tom)AsInteger'存儲兩個村莊之間的距離
Dimres(1To100)AsInteger'存儲管道規(guī)劃結果
PrivateSubForm_Load ( )
'村莊節(jié)點數據存儲在pointAB數組,兩個村莊的距離數據存儲在length數組。
'如圖c所示,(V1,V3)邊距離為1,則pointAB(1)=1,pointAB(2)=3,length(1)=1;(V1,V2)邊距離為6,則pointAB(3)=1,pointAB(4)=2,length(2)=6;其他依此類推,代碼略。
EndSub
Functioncheck(xAsInteger)AsInteger'判斷x節(jié)點是否已在規(guī)劃中
check=0
Fori=1To100
Ifx=res(i)Thencheck=1:ExitFunction
Nexti
EndFunction
PrivateSubCommand1_Click ( )
DimiAsInteger,jAsInteger,tmpAsInteger
DimtotalAsInteger,sumAsInteger
Fori=1Tom-1
Forj=mToi+1Step-1
If ①
tmp=pointAB(2*j-1):pointAB(2*j-1)=pointAB(2*j-3):pointAB(2*j-3)=tmp
tmp=pointAB(2*j):pointAB(2*j)=pointAB(2*j-2):pointAB(2*j-2)=tmp
tmp=length(j):length(j)=length(j-1):length(j-1)=tmp
EndIf
Nextj
Nexti
'開始規(guī)劃管道
total=1
res(1)=pointAB(1):res(2)=pointAB(2)
sum=length(1)
DoWhiletotal<②
Fori=2Tom
If ③
total=total+1
res(2*total-1)=pointAB(2*i-1)
res(2*total)=pointAB(2*i)
sum=sum+length(i)
ExitFor
EndIf
Nexti
Loop
'輸出連通結果res以及管道總長度sum,代碼略。
EndSub組卷:0難度:0.5