2019-2020學(xué)年浙江省“七彩陽光”新高考研究聯(lián)盟高三（下）月考信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分，在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關(guān)信息和信息技術(shù)的說法正確的是（ ）
組卷：3引用：1難度：0.6 -
2．下列應(yīng)用到人工智能的是（ ）
①利用宿舍的測溫門測量體溫
②醫(yī)院服務(wù)機(jī)器人與人進(jìn)行語音交流并提供資訊
③居家時期遠(yuǎn)程控制公司電腦進(jìn)行文件下載
④手機(jī)外賣使用人臉識別付款
⑤能夠?qū)崿F(xiàn)自動駕駛的汽車組卷：6引用：1難度：0.6 -
3．.小胡使用IE 瀏覽器訪問網(wǎng)易云音樂 http：//music.163.jye.ai/，下列說法正確的是（ ）
組卷：3引用：1難度：0.6 -
4．用 UltraEdit 軟件查看“2020 中國加油!”的字符內(nèi)碼，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：4引用：1難度：0.5 -
5．使用 Photoshop 軟件制作“中國加油”海報，界面如圖所示，下列說法正確的是（ ?。?/h2>組卷：3引用：1難度：0.6
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分。）
-
15．求數(shù)組a 中非降序數(shù)列的方法，算法描述如下：
（1）用數(shù)組依次存儲每個非降序數(shù)列中最大的元素（查找過程中的最大值），初始時 b（1）為數(shù)組 a 第 1 個元素。
（2）加入方法：將 a（i）與數(shù)組 b 中的每個元素依次逐個比較：
若 a（i）不比 b（j）小就用 a（i）替換 b（j）中的值；將 a（i）添加到第 j 個非降序數(shù)列中，并連接到 c 數(shù)組的 c（j）中。
若 a（i）比 b（j）都小，則在數(shù)組 b 最后添加新的元素值為 a（i），即將 a（i）添加到第 j+1 個下降數(shù)列中，并連接到 c 數(shù)組的 c（j+1）中。
（3）若數(shù)組a 各元素的值為：12，36，16，36，27，18 時，則 3 個非降序數(shù)列分別為：“12，36，36”，“16，27”，“18”。
程序運(yùn)行界面如圖所示：
小明依據(jù)上述描述設(shè)計了如下 VB 程序。請回答下列問題：
（1）代碼“List1.Clear“中的 Clear 是。（單選，填字母：A．對象名/B．事件名/C．屬性名/D．方法名）
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填上合適的代碼。
①
②
③
（3）程序中加框處代碼有錯，請改正。
改正：
Const m=15
Dim a（1 To m） As Integer Private Sub Form_Load
'讀取m 個數(shù)據(jù)，依次存儲到 a（1）、a（2）、…a（m）中，代碼略End Sub
Private Sub Command1_Click
Dim b（1 To m） As Integer'存儲數(shù)列最大的值Dim c（1 To m） As String'存儲非降序數(shù)列Dim i As Integer
Dim bottom As Integer Dim j As Integer
Dim bn As Integer'存儲非降序數(shù)列的個數(shù)List1.clear
b（1）=a（1）
①
c（1）=Str（a（1））
For i=2 To m
For j=1 To bn
If ②Then
b（j）=a（i）
Exit For
End If
Next j
If j＞bn Then
bn=bn+1
③
c（bn）=Str（a（i））
End If
Next i
For i=1 To bn
List1.AddItem c（i） Next i
Text2.Text=“數(shù)列中共有“+Str（bn）+“個非降序序列“
End Sub組卷：1引用：1難度：0.3 -
16．淳安千島湖中有若干座島嶼，有些島嶼之間有橋相連，有些島嶼之間無橋相連，可以通過其它的島嶼相連?，F(xiàn)在我們來建立一種關(guān)系矩陣模擬這種現(xiàn)象，如有 9 個島嶼，依次編號為 1～9，相互之間有橋相連在矩陣中用 1 表示；無橋相連用 0 表示；對于自身也用 0 表示，即矩陣的左上角到右下角的對角線全為0。
李同學(xué)設(shè)計了一個用來求兩座島嶼之間相連所需橋的數(shù)量的 VB 程序，點(diǎn)擊“生成矩陣”按鈕Command1，隨機(jī)產(chǎn)生一個關(guān)系矩陣，并在列表框 List1 中顯示。在文本框 Text1 和 Text2 中輸入島嶼的編號（1～9），點(diǎn)擊“求解”按鈕 Command2，在 Labell 中輸出兩座島嶼之間相連所需橋的數(shù)量。VB 程序運(yùn)行界面如圖所示。
對無橋相連的兩座島嶼 p1，p2 之間相連的算法思想如下：
①p1 島嶼所在行開始，將與其相連的島嶼依次添加到數(shù)組 b 中。
②若數(shù)組 b 中未出現(xiàn)島嶼 p2，則依次查找與其相連島嶼的所在行，將新出現(xiàn)的相連的島嶼添加到數(shù)組 b 中。
③在查找過程中同時記錄查找步數(shù)。
數(shù)組 b 內(nèi)全部搜索完畢，若 p2 還是未出現(xiàn)，則兩座島嶼之間無法相連，反之輸出橋的數(shù)量。請回答以下問題：
（1）如上圖所示的矩陣，從 5 號島嶼到 9 號島嶼最少需要經(jīng)過座橋。
（2）請在橫線處填入合適的代碼。
Const n=9'島 嶼 的 數(shù) 量Dim a（1 To n*n） As Integer
Private Sub Command1_ClickDim s As String List1.Clear
For i=1 To n
For j=i To n
If j=i Then
a（（i-1）*n+j）=0'對 角 線 為 0
Else
a（（i-1）*n+j）=Int（Rnd*2）
①'矩 陣 對 稱
End If
Next j Next i
For i=1 To n
s=““
For j=1 To n
s=s+Str（a（（i-1）*n+j））
Next j
List1.AddItem s Next i
End Sub
Private Sub Command2_Click
Dim b（1 To n） As Integer
Dim qiao（1 To n） As Integer'記錄相連島嶼之間橋的數(shù)量
Dim find（1 To n） As Boolean'記錄某島嶼是否被添加到數(shù)組 b 中
Dim p1 As Integer,p2 As Integer,cur As Integer,k As Integer,q As Integer
p1=Val（Text1.Text）
p2=Val（Text2.Text）
cur=p1：k=1：q=0
find（cur）=True
Do While find（p2）=False
For i=1 To n
If a（（cur-1）*n+i）=1 And find（i）=False Then
b（k）=i：k=k+1
find（i）=True
②
End If
Next i
q=q+1
If q=k Then Exit Do Else③
Loop
If find（p2）=True Then
Label1.Caption=“需要經(jīng)過“+Str（qiao（p2））+“座橋“
Else
Label1.Caption=“無橋相連“
End If
End Sub組卷：0引用：1難度：0.3