2020-2021學(xué)年浙江省紹興市高三（下）適應(yīng)性信息技術(shù)試卷（4月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。在每小題給出的四個選項中，只有一個符合題目要求）
-
1．關(guān)于信息與信息技術(shù)，下列說法正確的是（ ?。?/h2>
組卷：9引用：1難度：0.6 -
2．小明使用智能手機(jī)進(jìn)行網(wǎng)絡(luò)購物，經(jīng)歷了如下過程：
①手機(jī)電量不足時，給手機(jī)無線充電
②智能客服代替人工與小明語音交流
③下訂單后，進(jìn)行刷臉支付
④實時查看商品的物流信息
⑤通過識別指紋開啟寄存柜
以上過程中，應(yīng)用了人工智能技術(shù)的有（ ?。?/h2>組卷：5引用：1難度：0.4 -
3．用Access軟件設(shè)計某水果進(jìn)銷存系統(tǒng)的數(shù)據(jù)庫，其中“水果信息表”數(shù)據(jù)表中需要存儲如表所示的數(shù)據(jù)。
下列關(guān)于“水果信息表”數(shù)據(jù)表的描述，不正確的是（ ?。?/h2>序號 水果編碼 水果名稱 單位 單價 1 100516 進(jìn)口青提子 斤 33.80 2 100520 夏威夷木瓜 斤 6.50 …… …… …… …… …… 組卷：0引用：1難度：0.5 -
4．使用UltraEdit軟件觀察字符“2021-2025年十四五規(guī)劃早知道abc”的內(nèi)碼，部分界面如下圖所示。
下列說法正確的是（ ?。?/h2>組卷：9引用：2難度：0.5 -
5．使用Photoshop軟件制作“抗疫”作品，部分編輯界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：0引用：1難度：0.5
二、非選擇題（本題共4小題，其中第13題4分，第14題8分，第15題7分，第16題7分，共26分）
-
15．給定n個學(xué)生成績，篩選男生或女生中成績居前百分之k的學(xué)生。篩選規(guī)則如下：m=男生或女生記錄數(shù)×k%，若m＜1，則m取1；否則m向下取整，如m=3.1，則篩選最大的3項。若有數(shù)據(jù)和第m項的值相同，則一起篩選出。如有男生成績分別是“78，99，98，99，90”，以“最大10百分比”篩選，則5×10%=0.5，篩選最大的1項，篩選出“99，99”。編寫一個VB程序，實現(xiàn)上述功能。程序運(yùn)行時，在列表框List1中顯示n名學(xué)生的姓名、性別和成績，在文本框Text1中輸入性別，Text2中輸入k,單擊“篩選”按鈕Command1，在列表框List2中顯示篩選出的學(xué)生姓名、性別和成績。程序運(yùn)行界面如圖所示。
（1）下列VB語句可以實現(xiàn)清空文本框Text1（A.Text1.Clear/B.Text1.Caption=““/C.Text1.Text=““）
（2）實現(xiàn)上述功能的VB程序如下，請在①②③處填入合適代碼、、。
（3）程序加框處的代碼有誤，請改正。
Dim n As Integer
Dim xm（1 To n）As String
Dim xb（0 To n）As String
Dim cj（0 To n）As Integer
Private Sub Form_Load（ ?。?br />'讀取學(xué)生姓名、性別和成績分別存xm、xb和cj數(shù)組，并在列表框List1中顯示。
'學(xué)生人數(shù)存變量n,代碼略。
End Sub
Private Sub Commandl_Click0
Dim s As String,k As Single,m As Single,mm As Integer
DimcAs Integer,p As Integer,iAs Integer,j As Integer
Dim tl As String,t2 As Integer
s=Textl.Text
k=Val（Text2.Text）
c=0
For i=1To n
If xb（i）=sThen ①_____
Next i
m=c*k/100
If m＜1Then
mm=1
Else
mm=②____
End If
i=1
Do While i＜=n
p=i
For j=i+1To n
If xb （j）=s Then
If
Then p=j
End If
Next j
If i◇p Then
t1=xb（i）：xb（i）=xb（p）：xb（p）=tl
2=cj（i）：cjii）=cj（p）：cj（p）=t2
End If
If i＞mm And（xb（i）◇xb（i-1）Or cj（i）◇cj（i-1））Then Exit Do
i=i+l
Loop
③_____
For i=1To mm
List2.Addtem xm（i）+““+xb（i）+““+Str（cj（i））
Nexti
End Sub組卷：1引用：1難度：0.3 -
16．某手機(jī)APP為電影觀眾選座提供了程序推薦和自主選位功能。當(dāng)觀眾購票選擇程序推薦時，程序根據(jù)電影放映廳內(nèi)每個座位的優(yōu)先等級（用一個正整數(shù)表示其等級值，如圖a所示），自第1排1號座開始，按自左向右逐排的順序查找滿足本次購票人數(shù)r的最優(yōu)空位區(qū)（最優(yōu)空位區(qū)是指從某個座位開始的同排連續(xù)的r個空位，且其等級值之和最高，若有多個最優(yōu)空位區(qū)，則推薦最先找到的）。若找到，則顯示出推薦的座位編號；若找不到，則提示自主選位。例如：圖a中放映廳內(nèi)座位有9排10列，第5排10個座位的等級值依次為：1，2，3，4，5，5，4，3，2，1。全部座位為空時，當(dāng)前購票人數(shù)為5，推薦座位編號為5排3-7號；如圖b所示已經(jīng)部分選座狀態(tài)下，當(dāng)前購票人數(shù)為2，推薦座位編號為6排3-4號。
編寫VB程序，模擬上述功能。運(yùn)行程序，在列表List1中顯示目前選座狀態(tài)，黑點(diǎn)表示已選座，白點(diǎn)表示空位，在文本框Text1中輸入購票人數(shù)后，單擊“推薦”按鈕Command1，在標(biāo)簽Label3顯示當(dāng)前購票人座位的推薦結(jié)果。程序運(yùn)行界面如圖c所示。
（1）如圖a所示，全部座位為空時，第1次購票人數(shù)為4人，按程序推薦座位選座，座位等級值之和為。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼、、。
Constm=9'm表示座位有9排
Constn=10′n表示每排的座位數(shù)為10
Dim r As Integer'r表示當(dāng)次輸入的購票人數(shù)
Dim a（1 to m*n）As Integer'a數(shù)組存放每個座位的等級值
Dim b（l to m*n+1）As Integer′b數(shù)組保存當(dāng)前各座位選座情況，選中為1，未選為0
Private Sub Form_Load（ ?。?br />'從第1排開始，按座位編號從小到大順序逐排讀取座位等級值并依次存入數(shù)組a
'同上述順序，讀取選座狀態(tài)存入數(shù)組元素b（1）至b（m*n）中，輸出當(dāng)前選座狀態(tài)。代碼略
End Sub
Function getsum（i As Integer,j As Integer）As Integer
'從第i排第j列開始，計算第i排中滿足r個觀眾就座的連續(xù)空位等級值之和。
'若無法找到足夠的連續(xù)空位時，則返回-1
Dim p As Integer,sum As Integer,k As Integer
sum=0
p=j：k=（i-1）*n+p
Do Whilep＜=j+r-l And b（k）=0
sum=①____
p=p+1：k=k+1
Loop
If p=j+r Then getsum=sum Else getsum=-1
End Function
Private Sub Command1_Click）
Dim iAs Integer,jAs Integer,s As String,max As Integer
Dim t As Integer,newi As Integer,newj As Integer,pos As Integer
r=Val（Textl.Text）
max=0
For i=1To m
Forj=l To n-r+1
②____-
If max＜t Then max=t：newi=i：newj=j
Next j
Next i
If max=0 Then
Label3.Caption=“請自主選位”
Else
pos=（newi-1）*n+newj
Fori=③_____
b（i）=1
Next i
Label3.Caption=“推薦座位編號：”&newi&“排”&newj&”-”&newj+r-1&”座”
End If
End Sub組卷：1引用：1難度：0.3