2019-2020學(xué)年浙江省稽陽聯(lián)誼學(xué)校高三（上）月考信息技術(shù)試卷（11月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題0分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關(guān)信息和信息編碼的說法，正確的是（ ）
組卷：6引用：2難度：0.6 -
2．下列關(guān)于網(wǎng)頁和網(wǎng)絡(luò)協(xié)議的說法，正確的是（ ）
組卷：0引用：1難度：0.6 -
3．下列應(yīng)用中，均體現(xiàn)了人工智能技術(shù)的是（ ?。?br />①某手機依設(shè)定的時間自動開啟夜覽模式
②通過掃描某商品的二維碼獲得價格
③用指紋鎖功能打開手機
④某主題餐館使用機器人代替人工送餐
⑤使用手機拍照功能獲取圖像組卷：1引用：1難度：0.6 -
4．利用軟件UltraEdit觀察字符內(nèi)碼，界面如圖所示，下列說法正確的是（ ?。?br />
組卷：2引用：1難度：0.5 -
5．用Photoshop軟件制作“陌上花開”作品，部分界面如圖所示。當(dāng)前狀態(tài)下，下列說法正確的是（ ?。?img alt src="https://img.jyeoo.net/quiz/images/202108/41/3cdd16ab.png" style="vertical-align:middle" />
組卷：0引用：1難度：0.4
二、非選擇題（本大題共4小題，其中4分，8分，7分，第16小題7分，共26分。）
-
15．大數(shù)據(jù)是當(dāng)今最熱門的領(lǐng)域之一，小王同學(xué)利用VB設(shè)計了一個模擬大數(shù)據(jù)應(yīng)用的程序。有10種商品，數(shù)組a存儲用戶是否購買了各種商品；某個用戶購買時，商品兩兩之間是否一起購買用另一個數(shù)組dsj來記錄；各數(shù)組元素的解釋如表所示。
小王按照上述算法設(shè)計了VB程序，統(tǒng)計了20個用戶購買10種商品之間的關(guān)聯(lián)性，VB程序如下，部分界面如圖所示。數(shù)組元素 數(shù)組元素的含義 a（i） a（1）到a（10）依次存儲1號顧客購買商品1～商品10的記錄；
a（11）至a（20）依次存儲號2顧客購買商品1～商品10的記錄；依次類推。
數(shù)組a的某個元素的值為1，則表示某位顧客購買了某種商品，若為0則表示沒有購買該種商品。如a（6）=1表示1號顧客購買了商品6，a（6）=0表示未購買。b（i） dsj（1）～dsj（9）依次存儲商品1與商品2～商品10的關(guān)聯(lián)次數(shù)；
dsj（10）～dsj（17）依次存儲商品2與商品3～商品10的關(guān)聯(lián)次數(shù)：依次類推。
如dsj（5）=2表示商品1與商品6被同時購買過2次；
如dsj（45）=4表示商品9與商品10被同時購買過4次。
數(shù)組dsj中，若dsj（45）的值最大，則表示商品9和商品10的關(guān)聯(lián)次數(shù)最多。
Private Sub Cmd1_Click ____
Dim a（1To200）As Integer'各個用戶原始的購買記錄
Dim dsj （1To45）As Integer'統(tǒng)計商品之間的關(guān)聯(lián)次數(shù)
Dim i As Integer,t As Integer,nc As Integer,j As Integer,max As Integer
'數(shù)組a讀入數(shù)據(jù)并在列表框分行輸出，代碼略
For i=1 To 20'20個用戶
t=1
For j=1 To 9'10個商品，共45種組合
For k=j+1 To 10
m=（i-1）*10
a（j）*a
If Then dsj（t）=dsj（t）+1
①
Next k
Next j
Next i
max=0
For i=1 To 45
If ②Then
max=dsj（i）
maxi=i
End If
Next i
t=9：nc=1
Do While maxi＞t
③
t=t-1
nc=nc+1
Loop
Text1.Text=“關(guān)聯(lián)最多的是商品“+Str（nc）+Str（maxi+nc）+“：“+Str（max）+“次“
End Sub
（1）將按鈕上的文字“統(tǒng)計”修改為“計算”，可在Form_Load過程中使用（單選，填字母）語句實現(xiàn)；
A.Cmd1.Caption=“計算”B.Cmd1_Click=“計算”C.Command1.Text=“計算”
（2）加框處代碼有錯，請改正；
改正：
（3）在程序橫線處填入合適代碼，使程序完整。
①
②
③組卷：2引用：2難度：0.3 -
16．有多人在不同樓層要乘坐同一部電梯，所有人都是去往更高樓層，電梯初始位置為第一批用戶出發(fā)的樓層位置。電梯在運行時，上升一層需耗時3秒，在某一層停留時（含電梯初始位置和電梯結(jié)束位置），不論有多少人進出都算8秒。小馬同學(xué)利用上述算法編寫了一個VB程序，在列表框list1中顯示所有人的出發(fā)與到達樓層，按照出發(fā)樓層升序（出發(fā)樓層相同按到達樓層升序）排序，在列表框list2中輸出排序后結(jié)果，最后在文本框Text1中輸出電梯本次運行的總時間。程序運行界面如圖所示，回答下列問題：
（1）若有5批用戶出發(fā)與到達樓層分別是“10-25、5-15、15-20、15-30、5-10”，按照上述電梯運行規(guī)則，則電梯本次運行的總時間為秒。
（2）給橫線處填上合適代碼，使程序完整。
Dim a（1To10）As Integer,b（1To10）As Integer
Private Sub Command1_Click ____
Dim i As Integer,time As Integer,k As Integer
Dim c（1To20）As Integer,nc As Integer
c（1）=a（1）：nc=1
For i=1 To 9'刪除起點重復(fù)數(shù)據(jù)后添加到數(shù)組c
If a（i）＜＞a（i+1）Then
nc=nc+1
①
EndIf
Next i
Fori=1To10'刪除終點重復(fù)數(shù)據(jù)后添加到數(shù)組c
k=nc
Do While b（i）＜c（k）
k=k-1
Loop
lf ②Then'非重復(fù)數(shù)據(jù)（新?？繕菍樱┨砑拥綌?shù)組c
For j=nc To k+1 Step-1
c（j+1）=cj）
Next j
nc=nc+1
c（j+1）=b（i）
End If
Next i
time=（c（nc）-c（1））*3+nc*8
Text1.Text=“總時間--“+Str（time）+“秒”
End Sub
Private Sub Form_Load
'生成10批人的起止樓層，分別給數(shù)組a和b,并在列表框list1輸出，代碼略.
For i=1 To 9
For j=10 To i+1 Step-1
If a（j）＜a（j-1）Or③Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
t=b（j）：b（j）=b（j-1）：b（j-1）=t
End If
Next j
Next i
For i=1 To 10
List2.AddItem Str（a（i））+Str（b（i））
Next i
End Sub組卷：0引用：1難度：0.3